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Puisqu'il m'échoit 
d'éditorialiser, rions 
ensemble de quelques 
poncifs du genre. 


• Mégalo. «Depuis toujours leader incontesté de la 
presse informatique, le phénomène Micro-Mag 
crée une fois de plus l'événement avec cette nouvel¬ 
le mouture qui ne laissera personne indifférent.» 

• Démago. «Ce magazine qui est le vôtre se veut 
représentatif de la passion qui vous anime. 
Quiconque peut ici exprimer sortaient et affirmer 
ses compétences pour le plaisir de tous.» 

• Maso. «Certes imparfait, il est peu probable que 
ce numéro emporte l’adhésion. Toutefois, afin 
d'améliorer son contenu et tenter de vous satisfaire, 
faites-nous part de vos critiques et suggestions.» 

Mais trêve de plaisanterie. Cette revue multimachi- 
ne est la seule qui souscrit à la mode diététique. 
Allégée de toute matière grasse ludique, elle offre 
en effet un assortiment complet de vitamines indis¬ 
pensables à votre bien-être: initiation, programma¬ 
tion, bidouille et listing. 


Alimentation bi-tension simple.64 


, Amicalement, 


Jean-Claude Paulin 


NOUVELLE COMPILATION 

Consultez 
notre 
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CPC 


PROGRAMMATION 

INITIATION 


Premiers pas avec DEVMC 

L'ASSEMBLEUR EN DOUCEUR 
(7 e partie) 


Ensemble nous avons tant appris, qu’il 
est temps d’envisager maintenant 
le travail sous Assembleur. 


A ttention, certains ordres 
d'installation sont rela¬ 
tifs à l'Assembleur DEV- 
PAC (pour un autre 
Assembleur, consultez votre 
manuel). 

- Lancez DEVPAV. 

- A la question «adresse», 
répondez 2000. 

- «Do you want Usa», répondez 
N. ' 

Vous êtes maintenant sous 
Assembleur, tapez les carac¬ 
tères suivants en les validant 
par RETURN: 

- W ( Width = largeur): permet 
de passer du mode 1 au mode 
2 ou vice-versa. Le mode 2 est 
préférable car il évite, lors du 
listage écran, les lignes dédou¬ 
blées avec commentaires. Le 
manque de lisibilité du mode 2 
est compensé par cette propre¬ 
té du listing. 

- H (Help ■= au secours): donne 
à l'écran une liste des com¬ 
mandes disponibles, avec une 
lettre majuscule dans chacune 
d'elles qui devra être donnée 
(suivie de RETURN) pour 
l'exécution. 

- 110,5 ( Insert ): «I» permet la 
numérotation automatique des 
lignes du programme comme 
AUTO en basic. Les deux 
valeurs qui le suivent indi¬ 
quent le premier numéro et 



Première routine 


10 ORC 3000. 

—.. adresse de l’implantation future 

15 LD B,8. 

.; adressage immédiat 

20 LD A, B.;..... 

.; ad ressage registres 

25 LD (29990), A. 

.; adressage étendu 

30 LD HL,29991. 

.; adressage immédiat 

35 LD(HL),15. 

.; adressage indirect 

40 LD HL,49435. 

.; adressage immédiat 

45 LD (29992),HL. 

.; adressage étendu 

50 LD IX,29989. 

-; adressage immédiat 

55 LD A,(IX+1). 

.; adressage indexé 

60 LD (29994), A. 

.; adressage étendu 

65 RET... 

.; fin routine - retour basic 


l'incrément pour les lignes sui¬ 
vantes. 

(Les autres commandes seront 
détaillées lorsque le besoin 
s'en fera senti). 

• Dès lors, derrière le 10 qui 
apparaît, commencez la frappe 
des lignes de programmation 
en respectant bien les espaces 
entre les numéros de lignes et 
les mnémoniques, puis entre 
les mnémoniques et les argu¬ 
ments qui les suivent. 
Remarquez qu'une virgule 
sépare les deux arguments et 
qu’un point virgule précède le 
commentaire. Ce dernier est 
l'équivalent du REM en basic, 
il sera ignoré lors de la compi¬ 
lation. Son rôle est capital en 
assembleur car il permet de s'y 
retrouver dans un programme 
source écrit depuis des mois. 
Dans l'exemple qui suit, il n’est 
employé que pour rappeler les 
différents modes d'adressage, 
mais nous verrons ensuite 
comment faire un commentai¬ 
re de façon intelligente. 

• Ne tapez pas d'espace entre 
le dernier argument et le point 
virgule, car sachez qu'en lis¬ 
tant votre programme source, 
tout le texte se redisposera 
automatiquement en tabula¬ 
tions. Si vous avec commis une 
erreur dans le genre, oubli du 
point-virgule devant un com¬ 
mentaire, vous le constaterez 






immédiatement par le défaut 
d'alignement. 

• Validez chaque ligne avec 
RETURN comme en Basic. A 
la fin de la saisie, sortez de la 
numérotation automatique en 
pressant la touche ESC. 

• Listez maintenant à l'écran 
avec la commande «L». Celle- 
ci peut, si vous le désirez, 
admettre deux paramètres. 
L10,25 ne listera que les lignes 
portant un numéro de 10 à 25. 

Première compilation 

L'étape suivante est donc la 
compilation en vue d’obtenir 
le code machine. Tapez «A» 
(Assemblage) puis RETURN. 
contentez-vous pour l’instant 
de répondre par une simple 
validation aux questions 
posées. L’assembleur effectue 
alors une première passe pour 
vérifier la syntaxe. S’il détecte 
une erreur comme par 
exemple ORC au lieu de ORG, 
il affiche la ligne fautive et le 
type d’erreur rencontré (voir 
manuel). On peut continuer 
pour voir les autres erreurs ou 
arrêter par ESC et corriger. 

La correction peut s'effectuer 
de plusieurs manières selon 
l'assembleur utilisé. A ce pro¬ 
pos, DEVPAC offre un systè¬ 
me d'édition de lignes com¬ 
plet, mais son maniement est 
plutôt long à assimiler. On 
peut toujours retaper la ligne 
complète. Personnellement, 
j'emploie la même procédure 
qu'en basic: je liste la ligne 
erronée, supposant la 10 en 
tapant L10,10, puis, en pres¬ 
sant sur SHIFT, j'amène avec 
les touches de direction un 
second curseur sur la ligne 10. 
Je récupère toute la partie cor¬ 
recte en la dupliquant avec 
COPY sans prendre les 
espaces avant le point-virgule 
du commentaire, car le buffer 
n'accepte pas autant de carac¬ 
tères qu'en basic. Une fois les 
corrections de syntaxe exécu¬ 
tées, recommencez l'opération 
de compilation. Si tout est OK, 
le code machine est produit et 
installé en mémoire vive à 
l'adresse donnée après ORG. 


Première sauvegarde 

Voyons maintenant comment 
effectuer les sauvegardes. U 
(Upper) donne le dernier 
numéro de ligne, soit 65 pour 
notre exemple. Veillez à la 
présence de la cassette ou dis¬ 
quette, tapez P10,65,PROG1 et 
les lignes 10 à 65 seront sauve¬ 
gardées sous le nom PROGl. 
Si vous tapez Q10,65,PROG1, 
même résultat, mais avec un 
fichier sur disquette au format 
ASCII, sans intérêt pour l'ins¬ 
tant. On peut maintenant, si 
l'on veut, taper V„PROGl. 
Cette commande vérifie que 
la sauvegarde s'est bien pas¬ 
sée en comparant le program¬ 
me actuel avec celui sauvé, 
c'est une sécurité de plus. 

Ce fichier source que l'on 
garde est, répétons-le, fonda¬ 
mental. Par prudence, aucune 
exécution ne devra être tentée 
avant de l’avoir sauvé. Sûr de 
nous et de la validité de notre 
programme, nous pourrions 
cependant sauvegarder les 
codes machine par la com¬ 
mande 0,,PR0G1-B consti¬ 
tuant ainsi un fichier binaire 
du programme objet (et véri¬ 
fier éventuellement si tout 
s'est bien passé par V„PROGl- 
B). Vous avez compris que 
dans toutes ces commandes 
sans numéros de ligne, c’est 
leur ensemble qui est considé¬ 
ré et que, bien sûr, PROGl et 
PROG1-B sont donnés à titre 
d'exemple. Ne souriez pas, j’ai 
connu un débutant qui utili¬ 
sait . toujours Save 
«Nomfich.bas», procédure 
donnée en exemple dans le 
manuel! Un petit truc utile 
quand même: le «-B» qui per¬ 
met de mémoriser la nature 
binaire du programme (codes 
machine du prog. objet). 

Mais testons d'abord notre 
programme. B (Basic) validé 
par RETURN nous ramène 
sous basic. Tapez en direct 
CALL 30000. Vous êtes chan¬ 
ceux, tout se passe bien et 
vous récupérez le message 
READY. Si la machine est 
plantée, réinitialisez, relancez 
l'assembleur, récupérez le pro¬ 
gramme source avec la com¬ 


mande G„PROGl et recher¬ 
chez ce qui ne va pas (lister 
sur imprimante devient qua¬ 
siment indispensable pour 
des programmes consé¬ 
quents!). Si le programme 
semble correct, il nous reste à 
vérifier, grâce à la fonction 
PEEK, que les valeurs stockées 
aux adresses 29990 et sui¬ 
vantes sont bien là. Tapez une 
à une les quatre lignes 
suivantes : 

?peek (29990) 

?peek (29991) 

? peek (29992) + (peek (29993)* 
256) 

? peek (29994) 

Vous devez obtenir successi¬ 
vement 8, 15, 49435 et 8. 
Essayez de comprendre le 
pourquoi de ces valeurs en 
suivant le programme pas-à- 
pas et vous rappelant que: 

• Une valeur entre parenthèse 
indique toujours une adresse. 
Ne vous laissez pas piéger par 
(HL), c’est la même chose. 
Remplacer mentalement HL 
par la valeur qu'il représente. 

• Un registre simple, double 
ou une case-mémoire où qu'ils 
soient stockés, continuent à 
conserver leur valeur. 

• Enfin, on ne répétera jamais 
assez qu'une valeur 16 bits 
stockée en mémoire vive, 
occupe deux adresses sous 
forme inversée, poids faible, 
puis poids fort. Dans notre 
exemple, c'est bien la deuxiè¬ 
me adresse, soit 29993 qui 
contient le poids fort de 49435. 
On doit donc multiplier la 
valeur chargée à cette adresse 
par 256. 

Implantation de la 
routine 

Voilà, reste à voir la procédure 
permettant d'implanter en 
mémoire vive, hors assem¬ 
bleur et pour nos utilisations 
ultérieures sous basic, le 
fichier objet qui contient nos 
codes machine. La première 


chose à faire est de garantir le 
non-écrasement de la routine 
par le basic, qui place ses 
variables alphanumériques 
(chaînes) en haut de la RAM. 
La commande Basic MEMO¬ 
RY va s'en charger. La règle, 
souvent énoncée, est que l'on 
fixe MEMORY à l’adresse 
d'implantation moins 1. Un 
MEMORY 29999 préservera 
donc notre routine chargée en 
30000. Afin de montrer que ce 
n'est pas toujours lè cas, j'ai 
volontairement choisi de stoc¬ 
ker des valeurs dans la zone 
d'adresse 29990 et suivantes. 
11 se peut en effet que l'on ait 
à situer «avant» la routine, 
des graphismes codés ou un 
buffer (zone d'adresses réser¬ 
vées pour y rajiger des 
valeurs). Auquel cas, cet 
endroit se doit d'être égale¬ 
ment protégé (soit MEMORY 
29989 pour l'exemple ci-des¬ 
sus). 

Il ne reste plus qu'à loader le 
fichier PROGl-B et à lancer 
son exécution par un CALL, 
ce qui nous donne : 

10 MEMORY 29989 
20 LOAD "PROGl-B",30000 
30 CALL 30000 

Fin de la 1er étape 

En principe, vous devriez 
avoir maintenant assimilé, 
tout au moins dans les 
grandes lignes, les connais¬ 
sances (vue d'ensemble de 
l'architecture du CPC, système 
binaire et hexa, modes 
d'adressage et commandes de 
base de l'assembleur) néces¬ 
saires avant d'aborder l'étude 
des mnémoniques. En outre, 
sachez qu'il convient de maî¬ 
triser aussi parfaitement que 
possible les commandes de 
l'assembleur utilisé (ici, DEV¬ 
PAC) par une étude approfon¬ 
die du manuel. 

Prochainement, nous décou¬ 
vrirons l'extraordinaire facilité 
de programmation qui nous 
est offerte par les routines sys¬ 
tèmes de l'Amstrad. Bon tra¬ 
vail! 

Guy Poli 


CPC 


PROGRAMMATION 

INITIATION 


Le fichier de REM 

LES COURS DU PROFESSEUR ALI GATOR 


Lors de notre dernière rencontre, 
exposant une méthode personnelle de 
travail, je fis allusion à la pièce 
maîtresse de mon dispositif: 
un fichier de KEM. 


ul besoin d'êtré particu¬ 
lièrement clairvoyant 
pour affirmer que 90% 
des jeux informatiques 
exploitent grosso-modo le 
même canevas. A savoir, un 
héros (vous) chargé d’accom¬ 
plir une tâche quelconque, est 
contrarié dans son labeür par 
des éléments hostiles. Sur ce 
principe des plus simples, 
voici le thème tout aussi 
simple du jeu que je vais insé¬ 
rer dans mon fichier de REM. 
Bob doit ramasser toutes les 
pommes d’un verger afin de 
passer au suivant. Bien sûr, 
des pièges à loups et deux 
monstres lui faciliteront la 
cueillette. 

Le fichier de REM 

Première chose; chargement 
du fichier de REM en mémoi¬ 
re. Que contient-il? Tout sim¬ 
plement la liste des sous-pro¬ 
grammes qui vont constituer 
le charpente de mon jeu. 
Redéfinition - Variables de 
base - Création décor 
Tableau +1 - Dessin tableau - 
Routine principale - Les 
monstres - Vie -1 - Perdu - 
Gagné - Divers - Data. 

Ils ont déjà leur numéro de 
ligne. «Variable de base» est 
en 500, «Routine principale» 
en 2000, «Les monstres» en 
5000. Avec le temps je les ai 
tous mémorisés, d’où gain de 
temps appréciable lors de la 
mise au point. Il est bien évi¬ 
dent qu’une fois le travail ter¬ 
miné, un RENUM viendra 
boucher les trous. 

Contenu des 
sous-programmes 

Il s’agit maintenant de les rem- 


leurs, le nombre de vies, les 
fonctions, la déclaration des 
tableaux DIM, les paramètres 
sonores, etc. 

• Dessin de base. Ici commence 
la partie création. Création du 
décor commun à tous les 
tableaux, ainsi que l’inscription 
des scores, du nombre de vies et 
du tableau en cours. Quelques 
RUN sont déjà possibles pour 
juger de l’effet obtenu. 

• Tableau +1. Le numéro de 
plir en fonction du jeu à créer. 

• -Redéfinition. Ce sont les 
caractères redéfinis permettant 
de dessiner le personnage Bob, 
les pommes, les murs, les 
pièges et les monstres. Un rapi¬ 
de calcul doit vous permettre 
de connaître le nombre de 
caractères redéfinis qui vous 
seront nécessaires. Ajoutez-y 10 
avant de définir la valeur du 
Symbol After. Ceci afin de parer 
à toute éventualité. Symbol 
after est une commande beau¬ 
coup plus complexe qu’elle n’y 
paraît. Nous lui consacrerons 
bientôt un cours entier. 

• Variable de base. Sous-pro¬ 
gramme contenant l’ijjitialisa- 
tion de tous les paramètres de 
départ du jeu: Le mode, les cou- 
tableau ayant été déclaré dans 
les variables de base, le bran¬ 
chement se fera sous la forme : 


ON nrtab goto 100, 110, 120, 
etc... Les lignes 100, 110, 120... 
seront du type : 

RESTORE 9000 : GOSUB créa¬ 
tion tableau : GOTO routine 
principale. 

* Création des tableaux. Le 
branchement est fait. Le dessin 
du tableau peut commencer. Le 
RESTORE permet de pointer 
sur les data relatifs au tableau. 
Les éléments du décor 
(pommes, murs, pièges, etc.) 
sont dessinés à leur'position 
définie en data. Inutile de reve¬ 
nir sur ce principe largement 
explicité. A ce stade, un RUN 
permet de vérifier si le tableau 
se dessine correctement. Pour 
tester celui désiré. Il suffit de 
changer la valeur de «nrtab» en 
variable de base. 

• Routine principale; Sous- 
programme le plus important 
où a lieu l'interrogation du joys¬ 
tick ou du clavier. En fonction 
de ce test, il y aura branche¬ 
ment à d'autres sous-pro¬ 
grammes réalisés pour traiter 
chaque déplacement ou action 
possible. Cette partie est la plus 
délicate à mettre au point, car 
nombres de facteurs rentrent en 
ligne de compte: sens de dépla¬ 
cement, sortie du cadre, 
contacts divers, nombre de 
pommes ramassées,... 


Il est bien évident que selon 
l'originalité du jeu, de nom¬ 
breux autres sous-programmes 
non compris dans ce fichier de 
REM type peuvent venir se 
greffer à cet endroit. C'est pour¬ 
quoi/dans la numérotation que 
j’utilise, le début dè la routine 
principale se situe en 2000 et le 
sous-programme suivant, les 
monstres, seulement à partir 
de 5000. Dans cette routine 
principale, en plus de l'interro¬ 
gation du joystick, doit être 
indu un branchement sut le 
déplacement des monstres. Le 
principe est donc toujours le 
même: interrogation du joys¬ 
tick, déplacement si test positif, 
déplacement des monstres puis 
boudage. A ce stade, le problè¬ 
me qui se pose est l'obtention 
d'un déplacement régulier des 
monstres même si le joueur ne 
se déplace pas. Donc, prévoir 
un timing sans faille prenant 
en compte le temps de déplace¬ 
ment ou de non-déplacement 
du joueur. Plusieurs méthodes 
de mon cru vous seront expli¬ 
quées dans un proche avenir. 

• Les monstres. Après chaque 
interrogation du joystick, c'est 
ce sous-programme qui est lu. 
Il gère le déplacement des 
monstres, calcule leur position 
et tient compte des collisions 
éventuelles. Les différentes 
façons de déplacer un monstre 
feront l'objet d'une étude. 

• Vie -1. Lorqu'un mauvais 
contact s'effectue entre le 
joueur et ses poursuivants, le 
nombre de vies restantes doit 
être décrémenté. Certains para¬ 
mètres ont besoin d'être rafraî¬ 
chis (temps, score, ect.). 
Lorsque toutes les variables 
nécessaires ont été réinitiali¬ 
sées, il faut faire un branche- 






ment sur le sous-programme 
TABLEAU+1. 

• Perdu. Nombre de vies 
tombé à zéro, le branchement 
se fait ici. Toutes les variantes 
sont les bienvenues: musique 
lugubre, explosion, disparition 
progressive de l'écran... laissez 
libre cours à votre imagination. 
Après ceci, toutes les variables 
sont réinitialisées pour la repri¬ 
se du jeu. La solution la plus 
simple consiste en un RUN sur 
«Variables de base». 

• Gagné. Très peu de différen¬ 
ce avec VIE -1. Hormis le para¬ 
mètre vie qui reste inchangé et 
l'incrémentation du numéro de 
tableau, les mêmes réinitialisa¬ 
tions sont nécessaires. Un 
GOTO bien placé sur VIE -1 
permet l'économie de nom¬ 
breuses lignes. 

• Divers. C'est comme son 
nom l'indique, il s'agit d'un 
sous-programme fourre-tout 
où sont stockées toutes les 


Voici un petit jeu, 
comme je les aime, 
privilégiant la 
réflexion sur l'action. 

Il s'agit tout simplement de 
remettre dans leur bonne 
colonne un certain nombre de 
dés. Le problème est que ceux- 
ci bougent quatre par quatre. 
Vous en mettez un à sa place, 
trois autres s'en trouvent 
déplacés. 

Redéfinition 

Nécessité de deux caractères 
redéfinis pour chaque dé, ainsi 
qu'un certain nombre pour 
dessiner l'abominable saurien 
à droite de l'écran. 

Variables de base 

Du très classique, si ce n'est la 
façon de représenter les dés 


petites routines d'une ou deux 
lignes terminées par un 
RETURN et utilisées à tout 
moment par d'autres sous-pro¬ 
grammes. Y sont inclus des 
tests de mise au point comme 
la représentation numérique 
des tableaux DIM employés, 
tests qui disparaîtront du lis¬ 
ting final. 

• Data. Pour une plus grande 
facilité de travail, mes data 
figurent toujours en fin de pro¬ 
gramme; ceux relatifs à la créa¬ 
tion de tableaux comme ceux 
nécessaires à l'interprétation 
d'une mélodie. 

Voilà, nous avons fait le tour 
des sous-programmes conte¬ 
nus dans mon fichier de REM 
qui, bien sûr, ne s'adaptera pas 
à toute les situations. A vous 
de le modifier selon votre fan¬ 
taisie. Mais croyez-moi, une 
trame, un plan ou un fil 
conducteur résout déjà 50% 
des problèmes. 


par des variables alphanumé¬ 
riques indicées de typè 
DE$(1). Ceci afin de per¬ 
mettre le rajout d'une 
variable numérique entre les 
parenthèses. 

Pour la représentation des dés 
est utilisée une chaîne de 
caractères: les caractères redé¬ 
finis pour chaque dés, avec, 
entre les deux, le CHR$(8) et 
le CHR$(10) autorisant le 
retour en arrière et la descente 
d'une ligne du curseur. Dans 
le tableau DIM EC(6, 4) sera 
stockée la représentation 
numérique de chaque dé. Il y 
a 6 colonnes sur 4 lignes, soit 
24 dés possibles. 

Création du décor 

Ligne 700 : affichage de l'em¬ 
blème de votre serviteur. 
Lignes 710 - 820 : tracé des 
lignes des divers cadres en 
fonction de leur point de 
départ et de leur longueur, le 


tout contenu dans une série de 
data. 

Affichage tableau 

Lignes 900 - 1030 : branche¬ 
ment en fonction du numéro 
de tableau (1 à 12). Il ne tient 
qu'à vous d'en rajouter (voir 
Data 12 tableaux). 

Lignes 1050 - 1090 : lecture de 
la valeur du dé (zéro = pas de 
dé) et tirage aléatoire de sa 
colonne et de sa ligne. 

Ligne 1130 : effacer un dé. 
Ligne 1140 : afficher un dé 
dont la valeur est dans la 
variable D. 

Ligne 1150 : afficher le cadre. 
Ligne 1160 : l'effacer en le 
redessinant à l'encre zéro. 

Routine principale 

Le joystick est obligatoire pour 
ce jeu. Les 4 directions de base 
déplacent le cadre dont la 
position de départ est contenu 
dans les variables PA et PO. 
L'appui simultané sur. Feu 
plus Droite ou Gauche permet 
de faire tourner dans le sens 
désiré les dés contenus dans le 
cadre. 

Ligne 1390 : conservation de 
la valeur de départ des dés 
contenus dans le cadre. 

Lignes 1400 - 1430 : permuta¬ 
tion et affichage des dés. 

Ligne 1440 : initialisation du 
DIM avec les nouvelles 
valeurs. 

Lignes 1480 - 1510 : vérifica¬ 
tion si tous les dés à leur 
place. Chaque case du DIM 
est testée. Si sa valeur est 


égale à zéro (pas de dé) ou 
égale à la valeur de la colon¬ 
ne, la variable BON est écré- 
menté. Si BON=24 tous les 
dés sont à leur place... C’est 
gagné! 

Fin de partie 

Branchement à ce sous-pro¬ 
gramme pour deux raisons. Si 
BON=24, c'est gagné. Si 
TOR=0, le nombre de tour 
auquel vous aviez droit est 
épuisé et vous avez perdu. 
Suivant le cas, vous passez au 
tableau suivant ou vous refaite 
celui que vous n'avez pas 
réussi. 

Gestion des scôyes 

Une ligne pour effacer et écrire 
le nombre de tours restants, le 
tableau en cours et enfin votre 
score. 

Data 12 tableaux 

Une ligne de data est réser¬ 
vée pour chacun des douze 
tableaux écrits. La possibilité 
dépasse le million. Un 
tableau se compose d'une 
ligne de 24 chiffres allant de 0 
à 6. La seule règle à respecter 
et de ne pas répéter un chiffre 
plus de 4 fois. Logique, il n'y 
a que 4 lignes pour 6 
colonnes. Sachez aussi que 
moins votre ligne contient de 
zéro et plus le casse-tête 
devient difficile voire impos¬ 
sible. Bonnes migraines!.. 


Claude Le Moullec 


10 REM : : : : :: : : :::::::::::::::: [1823] 

20 REM : : [419] 

30 REM : MICRO MAG et : [696] 

40 REM : ALI GATOR : [1426] 

50 REM : : [419] 

60 REM : présentent : [1423] 

70 REM : : [419] 

80 REM : DE-PLACER : [473] 

90 REM : : [419] 

100 REM :::::::::::::::::::::::: [1823] 

110 REM : [419] 

120 REM : REDEFINITION [1622] 

130 REM : : [419] 

140 REM :::::::::::::::::::::::: [1823] 

150 SYMBOL AFTER 200 [1432] 


ECREATION : DE-PLACER 
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160 SYMBOL 201,0,0,0,0,1,1,0,1 
170 SYMBOL 202,14,31,123.245,226, 
255,127.103 

180 SYMBOL 203,128.224,192.224,25 

190 5 SŸMBOL 2 204.0.0,0.58,239.255.2 
54,188 

200 SYMBOL 205.3,3.1,0,1,3.15,62 
210 SYMBOL 206.108,113.191,220,17 
9,119,127,248 

220 SYMBOL 207.15.252,128.0,192,2 
24,253,195 

230 SYMBOL 208,240,0,0,0,0,0,0,12 
8 

240 SYMBOL 209,124.249.0,0.0,0.0, 
0 

250 SYMBOL 210,231,223,0,0 ,-0,0,0 , 
0 

260 SYMBOL 211,63,255,0,0,0,0,0,0 
270 SYMBÔL 212,192,192,0,0,0,0,0, 
0 

280 SYMBOL 213,254.188.94,47.255. 
255,126,192 

290 SYMBOL 214,254,252,30,15,255, 
193,0,0 ' 

300 SYMBOL 220,0,127,127,127,127. 
127,127,127 

310 SYMBOL 221,127,127.127,127,12 
7,127,127.0 

320 SYMBOL 222,0,0,0,0,0,0,0,8 
330 SYMBOL 223,8,0,0,0,0,0,0,0 
340 SYMBOL 224,0,0,32,32,0.0,0.0 
350 SYMBOL 225,0.0,0,0,2,2,0,0 
360 SYMBOL 226,0,0,32,32,0,0,0,8 
370 SYMBOL 227,8,0,0,0,2,2,0,0 
380 SYMBOL 228,0,0,34,34,0,0,0,0 
390 SYMBOL 229,0,0,0,0,34,34,0,0 
400 SYMBOL 230,0,0,34,34,0,0,0.8 
410 SYMBOL 231,8,0,0,0,-34,34,0,0 
420 SYMBOL 232,0,0,34,34,0,0,0,34 
430 SYMBOL 233,34,0,0,0,34,34,0,0 
440 REM :::::::::::::::::::::::: 

450 REM : : 

460 REM : VARIABLES DE BASE : 

470 REM : : 

480 REM : : : : : : : : : ï ï : : : : : : : 

490 CALL &BBFF:MODE 0:BORDER 0:RE 
STORE 510 

500 FOR t=0 TO 15 :READ a:INK t.a: 
NEXT 

510 DATA 0,2,14.23,26,4,15,6,16.2 
4,25,9,18,10,8,0 

520 ali3$=CHR$(209)+CHR$(210)+CHR 
$(211)+CHR$(212) 

530 ali2$=CHR$(205)+CHR$(206)+CHR 
$(207)+CHR$(208) 

540 alil$=CHR$C201)+CHR$( 202 )+CHR 
$(203)+CHR$(204) 

550 DE$(1)=CHR$(222)+CHR$(8)+CHR$ 
(10)+CHR$(223) 

560 DE$(2)=CHR$(224)+CHR$(8)+CHR$ 
(10)+CHR$(225) 

570 DE$(3)=CHR$(226)+CHR$(8)+CHR$ 
(10)+CHR$(227) 


[1667] 

[2905] 

[3220] 

[ 2001 ] 

[1814] 

[2683] 

[2530] 

[1947] 

[1555] 

[2016] 

[2345] 

[1836] 

[2394] 

[2281] 

[2274] 

[2385] 

[2128] 

[1607] 

[2033] 

[1343] 

[1583] 

[2184] 

[1698] 

[1207] 

[1359] 

[1553] 

[1655] 

[1770] 

[1823] 

[419] 

[2081] 

[419] 

[1823] 

[2244] 

[1630] 

[2473] 

[2257] 

[2118] 

[3744] 

[1958] 

[1684] 

[2392] 


580 DE$(4)=CHR$(228)+CHR$(8)+CHR$ [1963] 
(10)+CHR$(229) 

590 DE$(5)=CHR$(230)+CHR$(8)+CHR$ [3238] 
(10)+CHR$(231) 

600 DE$(6)=CHR$(232)+CHR$(8)+CHR$ [1432] 
(10)+CHR$(233) 

610 FD$=CHR$(220)+CHR$( 8 )+CHR$(10 [3004] 
)+CHR$(221) 

620 NR$=CHR$(22)+CHR$(0):TR$=CHR$ [1272] 
(22)+CHR$(1) 

630 no$=CHR$(23)+CHR$(0):xo$=CHR$ [2571] 
(22)+CHR$(1) 

640 WINDOW #1,1,15,1,21:SC=0:TA=1 [2481] 


:DIM EC(6,4) 

650 REM : : : : : : : : : : : : : : : : : : : : : : : : [1823] 

660 REM : : [419] 

670 REM : DESSIN DE BASE : [2128] 

680 REM : : [419] 

690 REM :::::::::::::::::::::::: [1823] 


700 PLOT -10,-10,9:TAG:MOVE 498,3 [6980] 
52:PRINT alil$;:MOVE 498,336:PRIN 
T al12$;:MOVE 498,320:PRINT ali3$ 

: :TAGOFF 

710 DATA 2,22,13,2,25,13.16.2,5,1 [2398] 
6,6,5.16.10,5,16,12.5,16,16,5,16, 

18,5 

720 DATA 16.22.5.16,24,5,16,2.5,2 [1479] 
0,2,5,16.10.3.20 

730 DATA 10,3,16,16,3,20,16,3,16, [2442] 
22.3,20,22,3,2,22,4,14,22.4 
740 el=5:e2=6:RESTORE 710:FOR 1=1 [2495] 
TO 20 :GOSUB 750 :NEXT: GOTO 830 
750 READ X.Y,L:xl=14+(X-l)*32:yl= [2428] 
388-(Y-1)*16 

760 IF i>10 THEN 800 [1128] 

770 FOR J=0 TO 2 STEP 2:PLOT xl.y [2455] 

l+j,el: DRAW xl+(l-l)*32.yl+ 3 :NEXT 
780 FOR J=4 TO 6 STEP 2:PLOT xl.y [4175] 
1+3,e2:DRAW xl+(l-l)*32,yl+3:NEXT 
790 RETDRN [555] 

800 PLOT xl+4,yl+2.el: DRAW xl+4,y [2465] 

1+2-(1-1)*16 

810 PLOT xl,yl+2,e2:DRAW xl,yl+2- [1096] 
(1-1)*16 

820 RETURN [555] 

830 PEN 7 :LOCATE 17,7:PRINT "ALI" [10301] 
:LOCATE 16,13:PRINT "SCORE”:LOCAT 
E 16,19:PRINT"LEVEL":PLOT -10,-10 
,7 :TAG:MOVE 480,16:PRINT "TOURS"; 

:TAGOFF 

840 FOR D=1 TO 6 :X1 = (D*2)+1:Yl=23 [2785] 


:GOSUB 1130:NEXT 

850 REM :::::::::::::::::::::::: [1823] 

860 REM : : [419] 

870 REM : AFFICHAGE TABLEAU : [1343] 

880 REM : : [419] 

890 REM :::::::::::::::::::::::: [1823] 


900 ERASE EC:DIM EC(6,5):ON TA GO [5799] 

TO 910.920,930,940,950,960,970,98 

0,990,1000,1010,1020,1030 

910 RESTORE 1810:GOSUB 1050:GOTO [1509] 

1220 

920 RESTORE 1820:GOSUB 1050:GOTO [2315] 
1220 


10 


























930 RESTORE 1830:GOSDB 1050:GOTO 
1220 

940 RESTORE 1840:GOSUB 1050:GOTO 
1220 

950 RESTORE 1850:GOSÜB 1050:GOTO 
1220 

960 RESTORE 1860:GOSUB 1050:GOTO 
1220 

970 RESTORE 1870:GOSUB 1050:GOTO 
1220 

980 RESTORE 1880:GOSÜB 1050:GOTO 
1220 

990 RESTORE 1890:GOSUB 1050:GOTO 
1220 

1000 RESTORE 1900:GOSUB 1050:GOTO 
1220 

1010 RESTORE 1910:GOSUB 1050:GOTO 
1220 

1020 RESTORE 1920:GOSUB 1050:GOTO 
1220 

1030 ta=l:GOTO 900 

1040 REM : : : DESSIN DES DES : : : 

1050 CLS #1 : FOR H=1 TO 24:READ D 

1060 LI=INT(RND*4)+l:CO=INT(RND*6 

)+l 

1070 IF EC(CO,LI)<>0 THEN 1060 
1080 Xl=(CO*2)+l:Yl=(LI*5)-2:GOSU 
B 1130 

1090 EC(CO,LI)=D:NEXT H 

1100 x=48:y=380:pa=l:po=l:GOSDB 1 

150 

1110 TOR=60+(ta*3):GOSUB 1710:GOS 
UB 1720 

1120 BON=0:FIN=0:RETURN 

1130 IF D=0 THEN PEN 0:LOCATE XI, 

Y1:PRINT CHR$(143):LOCATE Xl.Yl+l 

:PRINT CHR$(143):RETURN 

1140 PEN 5:LOCATE XI,Y1:PRINT FD$ 

:PEN 10:LOCATE XI,Yl:PRINT TR$;DE 

$(D);NR$:RETURN 

1150 ORIGIN x,y:PLOT 0,0,4:DRAW 1 
28,0:DRAW 128,-140 : DRAW 0,-140:DR 
AW 0,0:x2=x:y2=y:RETURN 
1160 ORIGIN x2,y2 :PLOT 0,0,0:DRAW 
128,0:DRAW 128,-140:DRAW 0,-140: 
DRAW 0,0:SOUND 1,100.2,5 :RETURN 
1170 REM 
1180 REM 
1190 REM 
1200 REM 
1210 REM 
1220 IF FIN=1 THEN 1580 
1230 IF JOY(0)=8 AND pa<5 THEN x= 
x+64:pa=pa+l -.GOSUB 1160:GOSUB 115 
0 

1240 IF JOY(0)=4 AND pa>l THEN x= 
x-64 :pa=pa-l .-GOSUB 1160:GOSUB 115 
0 

1250 IF JOY(0)=1 AND po>l THEN y= 
y+80:po=po-l:GOSUB 1160:GOSUB 115 
0 

1260 IF JOY(0)=2 AND po<3 THEN y= 
y-80:po=po+l:GOSUB 1160:GOSUB 115 


[ 2202 ] 

[2717] 

[1710] 

[2126] 

[1995] 

[1752] 

[3332] 

[2315] 

[1491] 

[2133] 

[781] 

[326] 

[1586] 

[2715] 

[1486] 

[1896] 

[1233] 

[1049] 


[1321] 

[4291] 


[6474] 

[4489] 

[6132] 



[3023] 

[2324] 

[3773] 


1270 IF JOY(0)=24 THEN GOSUB 1310 [1535] 
1280 IF JOY(0)=20 THEN GOSUB 1390 [1124] 
1290 GOTO 1220 [359] 

1300 REM :: 1/4 TOUR A DROITE :: [1468] 

1310 vl=ec(pa,po):v2=ec(pa+l,po): [3693] 
v3=ec(pa,po+l):v4=ec(pa+l,po+l) 

1320 d=v3:xl=(pa*2)+l:yl=(po*5)-2 [1605] 
:GOSUB 1130 

1330 d=vl:xl=((pa+l)*2)+l:yl=(po* [3433] 
5)-2 :GOSUB 1130 

1340 d=v4:xl=(pa*2)+l:yl=((po+l)* [3193] 
5)-2:GOSUB 1130 

1350 d=v2:xl=((pa+l)*2)+l:yl=((po [3280] 


+1)*5)-2:GOSUB 1130 

1360 ec(pa,po)=v3:ec(pa+l,po)=vl: [4478] 
ec(pa,po+l)=v4:ec(pa+l,po+l)=v2 
1370 GOTO 1450 [385] 

1380 REM : : 1/4 TOUR A GAUCHE : : [1579] 

1390 vl=ec(pa,po):v2=ec(pa+l,po): [3693] 
v3=ec(pa,po+l):v4=ec(pa+l,po+l) 


1400 d=v2:xl=(pa*2)+1 :yl=(po*5)-2 [2584] 
:GOSUB 1130 

1410 d=v4:xl=((pa+l)*2)+l:yl=(po* [3080] 
5)-2 :GOSUB 1130 

1420 d=vl :xl=(pa*2)+l :yl = ( (po+1)* [3762] 
5.)-2 : GOSUB 1130 

1430 d=v3:xl=((pa+1)*2)+l:yl=((po [2516] 
+1)*5)-2:GOSUB 1130 

1440 ec(pa,po)=v2:ec(pa+l,po)=v4: [4763] 
ec(pa,po+l)=vl:ec(pa+l,po+l)=v3 
1450 FOR T=1 TO 15:SOUND 1,50-T,1 [2345] 
,5 :NEXT 

1460 TOR=TOR-l:GOSUB 1710:GOSUB 1 [1664] 
490 

1470 IF TOR=0 THEN FIN=1:RETURN E [2100] 
LSE RETURN 

1480 REM : : : GAGNE ? : : : [729] 

1490 BON=0:FOR H=1 TO 6:FOR G=4 T [2186] 
O 1 STEP -1 

1500 IF EC(H,G)=H OR EC(H,G)=0 TH [1436] 
EN BON=BON+l 

1510 NEXT G,H:IF BON=24 THEN FIN» [1706] 


1:RETURN ELSE RETURN 

1520 REM :::::::::::::::::::::::: [1823] 
1530 REM : : [419] 

1540 REM : FIN DE PARTIE : [858] 

1550 REM : : [419] 

1560 REM :::::::::::::::::::::::: [1823] 
1570 REM : : : GAGNE : : : [721] 

1580 IF BON<>24 THEN 1630 [629] 


1590 CP=TOR:FOR H=CP TO 1 STEP -1 [3990] 
:TOR=TOR-l:GOSUB 1710 

1600 ENV 10,15,-1,1:SOUND 1,0,10, [1930] 
15.10,,15 

1610 SC=SC+1:GOSUB 1730:NEXT H:TA [2486] 
=TA+1: GOTO 900 

1620 REM PERDU : : : [1027] 

1630 SOUND 1,239,20.6:SOUND 1,0,2 [7574] 
,6 : SOUND 1,239,20,6 : SOUND 1,319,2 
0,6:SOUND 1,213,20,6 : SOUND 1,239, 

40,6:SOUND 1,319,20,6 

1640 PEN 9:FOR H=1 TO 5:LOCATE 18 [9917] 
,4 :PRINT CHR$(214):FOR T=1 TO 100 
:NEXT T :LOCATE 18,4:PRINT CHR$(21 
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3):FOR T=1 TO 100:NEXT T,H 
1650 CLS #1 : GOTO 900 [511] 

1660 REM :::::::::::::::::::::::: [1823] 
1670 REM : : [419] 

1680 REM : GESTION COMPTEURS : [2235] 
1690 REM : : [419] 

1700 REM :::::::::::::::::::::::: [1823] 


1710 PEN 0 :LOCATE 17,23:PRINT CHR [5570] 
$(143)+CHR$(143)4CHR$(143):PEN 12 
:LOCATE 16,23:PRINT TR$;TOR;NR$: R 
ETÜRN 

1720 PEN 0:LOCATE 17,17:PRINT CHR [9587] 
$(143)+CHR$(143)+CHR$(143):PEN 12 
:LOCATE 17,17:PRINT TR$; TA;NR$: RE 
TURN 

1730 PEN 0:LOCATE 17,11:PRINT CHR [4111] 
$(143)+CHR$(143)+CHR$(143):PEN 12 
:LOCATE 16,11:PRINT TR$; SC ;NR$:RE 
TURN 

1740 CALL &BB18:PEN l:MODE 2:END [1229] 
1750 PEN 5 :LOCATE X1,Y1:PRINT FD$ [6474] 
:PEN 10:LOCATE X1,Y1:PRINT TR$;DE - 


$(D):NR$:RETURN 

1760 REM ï : : : : : ; : : : : : : : : : : : : : : : : : [1823] 
1770 REM : : [419] 

1780 REM : DATA 12 TABLEAUX : [11721 


1790 

REM : 


[419] 

[1823] 

[2351] 

1810 

DATA 1,1,1,1,2,2, 2, 2,0 

0,0,0 

.0,0 

1820 

0,0,3,3.3.3,4,4,4,0 
DATA 1.1,2,2,2,4,4,4,6, 

0,0,0 

[2131] 

,6,0 

1830 

0,0,5,5.5,5,3,3,0,0 
DATA 1,1,6,6.6.6,5,5,3 

0,3,4 

[3075] 

,0.0 

1840 

0,0,4,4,4,0,0,5,1,0 
DATA 1,1,2,2,2,3,3,3,4 

4,4,6 

[2517] 

.6,0 

1850 

0,0,1,1,2,0.0,6,5.5 

DATA 1,1,1,1,0,0,3,3,3.3,0,0 

[2477] 

.6,6 

1860 

6,6,2. 2,2, 2,0,0,0,0 
DATA -1,1,2,2,4,4,3,3.5 

5,6,6 

[2319] 

.0,0 

1870 

0,0,6,6,5.5,0.0,0,0 
DATA 1,2,2.3,3,3,4,4,4 

4,5,5 

[2387] 

.5,0 

1880 

0,0,1,1,1,6,6,6,6,0 
DATA 1,1,2,3,3,3,4,5.5. 

5,5,6 

[2682] 

,0,0 

1890 

0.6,2,2,2,1,1,6,0,0 
DATA 1,1,2,2.2,2,3.3,3 

3,0,0 

[2572] 

,0.0 

1900 

0,0,4,4,6,6.6,6,0,0 
DATA 1,1,1,1.3,.3.0,0.0 

0,0,6 

[2623] 

.6.6 

1910 

6,0,2,2.2,2.0.0,5,5 
DATA 1,1,1,1,2,2.2.2.5, 

5,5,5 

[2391] 

,3,3 

1920 

3.6,0,0,4,4,4,4,0,0 

DATA 1.1,1,1,2,2,2,2,3. 

3,3,3 

[2644] 

,4.4 

4,4,5.5.5,5,6,6,6,6 




GESTION BANCAIRE 6128 


LA GESTION DE COMPTE BANCAIRE INDISPENSABLE POUR VOTRE CPC 


Quelques caractéristiques : 

- Gère jusqu’à 10 comptes (banque, épargne, caisse...). 

- Codes secrets possibles pour chacun des comptes. 

- Saisie des opérations très simple, avec aide en ligne. 

- Fonction archivage, vous permettant de stocker année par année 
vos opérations. 

- Fonction TRIER, pour obtenir des listes d'opérations par dates 
croissantes. 

- A l'aide de POINTER, vous pouvez effectuer la liaison avec votre 
relevé de banque 'officiel'. 

- NOMBREUSES POSSIBILITES DE SORTIES : * 

- Recherche particulière répondant à 1 ou plusieurs critères 

parmi les suivants : -DATES DE DEBUT ET DE FIN 



BON DE COMMANDE à retourner à 
MICROLOGIC - B.P. 18 - 91211 DRAVEIL CEDEX 

par téléphone.-(l) 69.21.61.65 / par minitel (1) 69.24.49.08 


-MONTANTS MINIMUM ET MAXIMUM 
-UN LIBELLE PARTICULIER 

- Liste de chèques pouvant répondre- aux critères suivants: 

-DATES DE DEBUT ET DE FIN 
-NUMEROS DE DEBUT ET DE FIN 

- Relevé complet -ENTRE DATES 

-AFFICHAGE SOLDE REEL OU SOLDE 
OPERATIONS POINTEES. 

- Sorties sur ECRAN , IMPRIMANTE ou DISQUETTE. 

- UTILITAIRES IMPRIMANTE, ECRAN, COPIE D’ECRAN... 

- UTILISE LES 128 Ko DE VOTRE CPC 6128. 


Nom :...... Prénom:.. ? 

Adresse:.......1...........i- •§ 

Code postal:.Ville :._...... s 


iÛJe commande GESTION BANCAIRE 6128 , au prix 
; de 265,00 Frs. (port compris) 

|Dje désire recevoir votre CATALOGUE GRATUIT 
i présentant votre autres produits pour CPC. 

; Je choisis de régler par : — Emire 

; □ CHEQUE □ C-RjLpSn No__ FIN- 

! '-“ L —— Signature 

i □ MANDAT □ CONTRE RBT (+35 Frs) 
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PROGRAMMATION 

Gare à la casse! 

L'OMELETTE INFERNALE 


C e jeu nécessitant réflec- 
tion et stratégie utilise le 
joystick. Les règles sont 
incluses dans la présentation 
d’ailleurs facultative. Prenez- 
en connaissance aux lignés 
3300 à 3340. Les incondition¬ 
nels des œuvres de Le Moullec 
noteront l'innovation que 
constitue l’accès aux écrans. 

Sauvegarde 

Sauvez sous un nom de votre 
choix, le programme Basic 
principal. Entrez ensuite par 
Amsaisie V.2 en vous reportant 


En visite dans un poulailler 
particulièrement bien garni, Fox le 
renard espère ripailler en toute impunité. 
Pas si simple... 


à son mode d'emploi, les deux 
listings de codes hexadéci¬ 
maux. 


Nom 

Adr. déb. 

Long 

SPRITEGG 

&8000 

&4FF 

ROUTEGG 

&A000 

&451 


La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent de morceler leur travail 
en plusieurs fichiers qui 
devront ultérieurement être 
réunis en deux fichiers défini¬ 
tifs. 

Claude Le Moullec 




L’OMELETTE INFERNALE 


Claude LE MOULLEC 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 
100 REM 
110 REM 


■ 120 MEMORY &7FFF 

130 LOAD "Ispritegg",&8000 

140 LOAD "1routegg",&A000 

150 GOSUB 2970:REM supprimez cett 

e ligne si vous ne tapez pas la p 

resentation 

160 REM :::::::::::: : : i : : : : : : : : 
170 REM : : 

180 REM : VARIABLES DE BASE : 

190 REM : : 

200 REM ::::::::::::::::::::::: 

210 DEFINT a-z:CLS:LOCATE 1,1:FRI 

NT ”30 s DE PATIENCE_GOSUB 2 

520 

220 MODE 0:BORDER 0:RESTORE 230:F 
OR h=0 TO 15 :READ a:INK h,a :NEXT 
230 DATA 0,2,3,11,9,24,15,6,0,16, 
7,13,26,24,9,18 

240 DIM ml(20):DEF FN POK(A,B)=&9 
C7E+(B-1)*39+A 

250 ENV 1,100,3,1:ENT 1,100,2,2 
260 ENT 2,10,-2,2:ENV 2,10,-1,2 
270 WINDOW #1,1,20,2,25 :oeuf=0:tr 
[1823] =1 :vie=3 

[419] 280 REM :::::::::::::::::: : : : : : 

U514] 290 REM : : 

[419] 300 REM : BRANCHEMENT TAB : 

[1823] 310 REM : : 

[419] 320 REM :::::::::::: : : : : : : : : : : : 

[538] 330 ON tr GOTO 340,350,360,370,22 

[419] 40 

[2031] 340 POKE &A446,&FE:POKE &A447.&98 

[419] :CALL &A445:GOTO 410 

[1823] 350 POKE &A446,&7D:POKE &A447.&95 


[150] 

[1059] 

[1608] 

[5304] 


[1736] 

[419] 

[2081] 

[419] 

[1736] 

[4431] 


[2588] 

[2024] 

[1364] 

[ 1021 ] 

[1423] 

[2116] 


[1736] 

[419] 

[1219] 

[419] 

[1736] 

[1135] 


[2019] 


[3404] 
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PROGRAMMATION 


:CALL &A445 :NBO=OF:GOSDB 2810:GOT 
O 400 

360 POKE &A446,&FC:POKE &A447.&91 [3667] 
:CALL &A445:NBO=OF:GOSUB 2810:GOT 
0 390 

370 POEE &A446,&7C:P0EE &A447.&8E [4061] 
:CALL &A445:NBO=OF:GOSDB 2810 :GOT 


O 380 

380 vx=32:vy=18:ml<18)=1 [1277] 

390 nx=30:ny=10:ml(16)=l [870] 

400 mx=15:my=18:ml(14)=l [1624] 

410 PEN 7 :LOCATE 1,1:PRINT "TAB [4520] 

vie; OEDF 

420 PEN 15 :LOCATE 4,1:PRINT TR :LO [1350] 
GATE 10,1:PRINT vie 

430 REM ::::::::::::::::::::::: [1736] 

440 REM : : [419] 

450 REM : ROUTINE PRINCIPALE : [2225] 

460 REM : : [419] 

470 REM [1736] 

480 POEE FN pokCl,5),4:CALL &A0A5 [4447] 

:POEE FN pok( 1,5 ) , 1 :POEE FN pok(2 
,5).9 

490 CALL &A432-.GOSDB 1440 [991] 

500 GOSDB 610 [923] 

510 CALL &A432:GOSDB 1440 [991] 

520 GOSDB 880 [1060] 

530 CALL &A432:GOSDB 1440 [991] 

540 GOSDB 1140 [823] 

550 GOTO 490 [371] 

560 REM ::::::::::::::::::::::: [1736] 

570 REM : : [419] 

580 REM : MODVEMENTS MONSTRES : [2711] 

590 REM : : [419] 

600 REM ::::::::: : : : : : : :::::::: [1736] 

610 IF ml(14)=0 THEN RETURN [1512] 

620 m=INT(RND*2)+l:MXl=MX:MYl=MY [1062] 

630 ON SM GOTO 640,840,850,860 [1919] 


640 MY=MY-1: IF PEEE(FN POK(MX.MY) [2170] 
)=0 THEN 670 

650 IF PEEE(FN POK(MX,MY))=9 THEN [1955] 
1790 

660 SM=INT(RND*4)+1:MX=MX1:MY=MY1 [1962] 
:RETDRN 

670 ta=PEEK(&A33D):ON ta GOTO 680 [1359] 
.720,760,800 

680 DEF FN PO<X,Y)=&C050+(Y-1)*16 [1576] 
0+(X-l)*4 

690 IF mxl<21 AND myl<13 THEN CAL [3241] 
L &A00D.FN PO(MXl.MYl),&8000 
700 IF mx<21 AND my<13 THEN CALL [3707] 
&A00D.FN PO(MX.MY),&8340+(&40*m) 

710 POEE FN POKCMXl,MY1),0:POEE F [4196] 

N POE(MX.MY),14 :RETURN 

720 DEF FN PO(X,Y)=&C050+(Y-1)*16 [1358] 

0+(X-20)*4 

730 IF mxl>19 AND myl<13 THEN CAL [1793] 
L &A00D.FN PO(MXl.MYl),&8000 
740 IF mx>19 AND my<13 THEN CALL [4093] 
&A00D.FN PO(MX.MY),&8340+(&40*m) 

750 GOTO 710 [431] 

760 DEF FN PO(X,Y)=&C050+(Y-l2)*l [1112] 
60+(X-l)*4 

770 IF mxl<21 AND myl>ll THEN CAL [2711] 
L &A00D.FN PO(MXl,MY1),&8000 


780 IF mx<21 AND my>ll THEN CALL [3072] 
&A00D.FN PO(MX.MY),&8340+(&40*m) 

790 GOTO 710 [431] 

800 DEF FN PO(X,Y)=&C050+(Y-12)*1 [1007] 
60+(X-20)*4 

810 IF mxl>19 AND myl>ll THEN CAL [2844] 
L &A00D.FN PO(MXl,MY1),&8000 
820 IF mx>19 AND my>ll THEN CALL [3713] 
&A00D.FN PO(MX.MY),&8340+(&40*m) 

830 GOTO 710 [431] 

840 MX=MX+1: IF PEEE(FN POK(MX.MY) [3413] 
)=0 THEN 670 ELSE 650 

850 MY=MY+1: IF PEEE(FN POE(MX.MY) [2855] 
)=0 THEN 670 ELSE 650 

860 MX=MX-1: IF PEEKCFN POE(MX.MY) [2208] 
)=0 THEN 670 ELSE 650 

870 REM : : : MONSTRE 2 : : : [670] 

880 IF ml(16)=0 THEN RETURN ELSE [2365] 
NX1=NX: NY1=NY 

890 ON SN GOTO 900,1100,1110,1120 [2042] 
900 NY=NY-1: IF PEEKCFN POX(NX.NY) [2918] 
)=0 THEN 930 

910 IF PEEKCFN POK(nX,nY))=9 THEN-s[1934] 
1790 

920 SN=INT(RND*4)+1:NX=NX1:NY=NY1 [1334] 
:RETDRN 

930 ta=PEEK(&A33D):ON ta GOTO 940 [1718] 
.980,1020,1060 

940 DEF FN PO(X,Y)=&C050+(Y-1)*16 [1576] 
0+(X-l)*4 

950 IF Nxl<21 AND Nyl<13 THEN CAL [4993] 
L &A00D.FN PO(NXl.NYl),&8000 
960 IF Nx<21 AND Ny<13 THEN CALL [2898] 
&A00D.FN PO(NX-.NY) ,&83C0+(&40*m) 

970 POKE FN POK(NXl,NY1),0:POKE F [2877] 
N POK(NX.NY),16 :RETDRN 

980 DEF FN PO(X, Y)=&C050+(Y-1 )-*16 [1358] 
0+(X-20)*4 

990 IF Nxl>19 AND Nyl<13 THEN CAL [3397] 
L &A00D.FN PO(NX1,NY1),&8000 
1000 IF Nx>19 AND Ny<13 THEN CALL [4131] 
&A00D,FN PO(NX,NY),&8 3C0+(&40*m) 

1010 GOTO 970 [330] 

1020 DEF FN PO(X,Y)=&C050+(Y-12)* [1112] 
160+(X-1)*4 

1030 IF Nxl<21 AND Nyl>l1'THEN CA [3485] 
LL &A00D.FN PO(NX1,NY1),&8000 
1040 IF Nx<21 AND Ny>ll THEN CALL [3112] 
&A00D.FN PO(NX.NY),&83C0+(&40*m) 

1050 GOTO 970 [330] 

1060 DEF FN PO(X,Y)=&C050+(Y-12)* [1007] 
160+(X-20)*4 

1070 IF Nxl>19 AND Nyl>ll THEN CA [2384] 
LL &A00D.FN PO(NXl.NYl),&8000 
1080 IF Nx>19 AND Ny>ll THEN CALL [3665] 
&A00D.FN PO(NX.NY),&83C0+(&40*m) 

1090 GOTO 970 [330] 

1100 NX=NX+1:IF PEEKCFN POK(NX,NY [2448] 

))=0 THEN 930 ELSE 910 

1110 NY=NY+1:IF PEEKCFN POKCNX,NY [3741] 

))=0 THEN 930 ELSE 910 

1120 NX=NX-1: IF PEÉKCFN POK(NX,NY [4073] 

))=0 THEN 930 ELSE 910 

1130 REM ::: MONSTRE 2 ::: [670] 

1140 IF ml(18)=0 THEN RETURN ELSE [3209] 
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VX1=VX:VY1=VY 

1150 ON SV GOTO 1160.1360,1370,13 [1509] 
80 

1160 VY=VY-1:IF PEEKCFN POK(VX,VY 12668] 
))=0 THEN 1190 

1170 IF PEEKCFN POKCVX,VY))=9 THE [2456] 
N 1790 

1180 SV=INT(RND*4)+1:VX=VX1:VY=VŸ [1493] 
1 :RETURN 

1190 TA=PEEKC&A33D):ON TA GOTO 12 [1972] 
10.12-50,1280,1320 

1200 DEF FN PO(X,Y)=&C050+(Y-l)*l [1576] 
60+<X-l)*4 

1210 TF Vxl<21 AND Vyl<13 THEN CA [3867] 
LL &A00D.FN POCVX1,VY1),&8000 
1220 IF Vx<21 AND Vy<13 THEN CALL [2871] 
&A00D.FN POCVX.VY),&8440+C&40*m) 

1230 POKE FN POK(VX1,VY1).0 :POKE [2875] 

FN POK(VX, VY),18 :RETURN 

1240 DEF FN PO(X,Y)=&C050+(Y-1)*1 [1358] 

60+(X-20)*4 

1250 IF Vxl>19 AND Vyl<13 THEN CA [3495] 
LL &A00D.FN PO(VXl,VY1),&8000 
1260 IF Vx>19 AND Vy<13 THEN CALL [3520] 
&A00D.FN PO(VX.VY),&8440+(&40*m) 

1270 GOTO 1230 [365] 

1280 DEF FN PO(X,Y)=&C050+(Y-12)* [1112] 
160+(X-1)*4 

1290 IF Vxl<21 AND Vyl>ll THEN CA [3103] 
LL &A00D.FN PO(VXl,VY1),&8000 
1300 IF Vx<21 AND Vy>ll THEN CALL [3090] 
&A00D.FN POCVX.VY),&8440+C&40*m) 

1310 GOTO 1230 [365] 

1320 DEF FN POCX,Y)=&C050+CY-12)* [1007] 
160+(X-20)*4 

1330 IF Vxl>19 AND Vyl>ll THEN CA [3540] 
LL &A00D.FN PO(VXl,VY1),&8000 
1340 IF Vx>19 AND Vy>ll THEN CALL [4301] 
&A00D.FN PO(VX.VY),&8440+(&40*m) 

1350 GOTO 1230 [365] 

1360 VX=VX+1: IF PEEKCFN POKCVX.VY [3990] 

))=0 THEN 1190 ELSE 1170 

1370 VY=VY+1: IF PEEKCFN POK(VX,VY [2937] 

))=0 THEN 1190 ELSE 1170 

1380 VX=VX-1: IF PEEK(FN POX(VX,VY [2451] 


))=0 THEN 1190 ELSE 1170 
1390 REM ::::::::::::::::::::::: [1736] 

1400 REM : : [419] 

1410 REM : S/PROG DIVERS : [589] 

1420 REM : : [419] 

1430 REM ::::::::::::::::::::::: [1736] 


1440 a=l+PEEX(&A425): IF a>13 THEN [2558] 
1790 

1450 ON a GOTO 1460,1460,1470,164 [1937] 
0,1650,1670 

1460 RETDRN [555] 

1470 sp=2:ram=&8080:GOSUB 1950:a- [3617] 

PEEKCFN pok(ax.ay)) 

1480 IF a>13 THEN 1530 [730] 

1490 IF a=5 THEN 1500 ELSE IF pa= [3856] 

0 THEN 1510 ELSE RETDRN 

1500 axl=ax:ayl=ay:sp=0:ram=&8180 [4370] 
: ON ta GOSDB 2070,2110,2150,2190: 

GOTO 1750. 

1510 ax=axl:ay=ayl:sp=0:ram=&8000 [5181] 


:ON ta GOSUB 2070,2110.2150.2190 

1520 SOUND 2,50,0,15,2°, 2,31 :RETUR [2524] 

N 

1530 axl=ax:ayl=ay:sp=0:ram=&8000 [2760] 

:ON ta GOSDB 2070,2110,2150,2190 

1540 ml(a)=0:mons=a:SOUND 2,50.0, [2009] 

1550'IF a=14 THEN AFTER 500,1 GOS [3615] 
UB 1600:RETDRN 

1560 IF a=16 THEN AFTER 500,2 GOS [2350] 
DB 1600:RETDRN 

1570 IF a=18 THEN AFTER 500,3 GOS [2362] 
DB 1600:RETDRN 

1580 AFTER 500,1 GOSUB 1600:RETUR [860] 

N 

1590 REM : : : TEMPO MONSTRE : : : : [920] 

1600 mzx=INT(RND*39)+l:mzy=INT(RN [4419] 
D*23)+l: IF PEEKCFN pok(mzx.mzy))< 

>0 THEN 1600 

1610 IF mons=14 THEN mx=mzx:my=mz [2631] 
y:ml(14)=l:RETURN 

1620 IF mons=16 THEN nx=mzx:ny=mz [4394] 
y :ml (16) = 1:RETDRN 

1600 IF mons=18 THEN vx-mzx:vy=mz<[3822] 
y:ml (18)=1:RETDRN 

1640 sp=3:ram=&80C0:GOSDB 1950:IF [2995] 
pa=0 THEN 1510 ELSE RETDRN 
1650 IF oeuf>11 THEN 1660 ELSE RE [1207] 
TURN 

1660 ax=axl:ay=ayl:sp=0:ram=&8000 [5775] 
:ON ta GOSUB 2070,2110,2150,2190: 

GOTO 1870 

1670 sp=5:ram=&8140:GOSDB 1950:a= [2394] 
PEEKCFN pokCax.ay)) 

1680 IF a=l OR a=2 THEN 1740 [1055] 

1690 IF a=4 THEN oeuf=oeuf+l:LOCA [4573] 
TE 17,1:PEN 15:PRINT oeuf:GOTO 17 
10 

1700 RETURN [555] 

1710 axl=ax-l:ayl=ay:Sp=4:ram=&81 [1065] 
00 

1720 ON ta GOSDB 2070,2110,2150,2 [1129] 
190 

1730 FOR h=5 TO 100 STEP 5:SOUND [2964] 

1,50+H,3,5:NEXT:RETDRN 

1740 ax=axl:ay=ayl:sp=0:ram=&8180 [6903] 

:ON ta GOSDB 2070,2110,2150,2190 

17é0 FOR t=l TO 200 :NEXT t:ram=&8 [3367] 

1C0: ON ta GOSDB 2070,2110,2150,21 

90 

1760’FOR t=l TO 200:NEXT t:ram=&8 [3681] 
000.-ON ta GOSUB 2070,2110,2150,21 
90 

1770 SOUND 1,100,30,15,1,2,6:RETU [2821] 
RN 

1780 REM : : : VIE - 1 : : : [637] 

1790 FOR h=0 TO 3 :mu=REMAINCh): NE [2482] 
XT:vie=vie-l 

1800 oeuf=0 : BORDER 26:INK.0,26:IN [2070] 
K 7,26 

1810 ODT &BC00,2 :ODT &BD49,49:SOD [3057] 
ND 4.1500,50,7,0,0,10:OUT &BC00,2 
:OUT &BD49.46 

1820 FOR t=l TO 4000:NEXT .-BORDER [5673] 
0:POKE &A33D.1:BORDER 0:RESTORE 1 
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OPO 


PROGRAMMATION 



:ta=PEEKC&A33D):ss=PEEKC 
GOTO 1.960,1970,1980 , 


1830 FOR H=&A100 TO &A107:READ a$ 
:POKE h,VAL("&"+a$):NEXT 
1840 RESTORE 230:FOR h=0 TO 15:RE 
AD a:INK h,a:NEXT: IF vie=0 THEN 2 
240 

1850 CALL &A445 :NBO=OF:GOSUB 2810 
:ON tr GOTO 410,400,390,380 
1860 REM : : : TAB + 1 : : : 

1870 RESTORE 1880:FOR h=&A100 TO 
&A107:READ a$:POKE h.VAL(T+a$) : 
NEXT 

1880 DATA 02,01,02,05,IC,9D,D4,C2 
1890 POKE &A33D,1 :of=oeuf:oeuf=0: 
tr=tr+l:GOTO 330 
1900 REM 
1910 REM 
1920 REM 
1930 REM 
1940 REM 
1950' pa; 

&A100):ON 
1990 

1960 ax=PEEK(&A10 2 ):ay=PEEK(&A103 
)-1 : GOTO 2000 

1970 ax=PEEKC&A102)+l:ay=PEEKC&Al 
03):GOTO 2000 

1980 ax=PEEK(&A102):ay=PEEK(&A103 
) + l: GOTO' 2000 

1990 ax=PEEK(&A102)-l:ay=PEEK(&Al 
03) 

2000 ON ss GOTO 2010,2020.2030,20 
40 

2010 axl=ax:ayl=ay:ay=ay-l: IF PEE 
K(FN pokCax,ay))=0 THEN 2050 ELSE 
RETDRN 

2020 axl=ax:ayl=ay:ax=ax+l: IF PEE 
K(FN pokCax.ay))=0 THEN 2050 ELSE 
RETDRN 

2030 axl=ax:ayl=ay:ay=ay+l: IF PEE 
K(FN pokCax,ay))=0 THEN 2050 ELSE 
RETDRN 

2040 axl=ax:ayl=ay:ax=ax-l: IF PEE 
K(FN pok(ax,ay))=0 THEN 2050 ELSE 
RETDRN 

2050 ON ta GOSDB 2070,2110,2150,2 
190 

2060 pa=pa+l:GOTO 2000 

2070 DEF FN PO(X,Y)=&C050+(Y-1)*1 

60+CX-l)*4 

2080 IF axl<21 AND ayl<13 THEN CA 
LL &A00D.FN POCaXl,aYl),&8000 
2090 IF ax<21 AND ay<13 THEN CALL 
&A00D.FN PO(aX,aï),ram 
2100 POKE FN POK(aXl,aYl),0 :POKE 
FN POK(aX,aï),sp:RETDRN 
2110 DEF FN PO(X,Y)=&C050+(Y-1)*1 
60+(X-20)*4 

2120 IF axl>19 AND ayl<13 THEN CA 
LL &A00D.FN PO(aXl,aYl),&8000 
2130 IF ax>19 AND ay<13 THEN CALL 
&A0 0D,FN PO(ax,ay),ram 
2140 GOTO 2100 

2150 DEF FN POCX,Y)=&C050+CY-12)* 
160+(X-1)*4 


[3812] 

[3471] 


[571] 

[3789] 


[954] 

[2064] 

[1736] 

[419] 

[1886] 

[419] 

[1736] 

[4760] 


[1941] 

[1819] 

[2477] 

[2689] 

[1290] 

[2797] 

[3519] 


[1107] 

[1576] 

[2934] 

[2504] 

[1639] 

[1358] 

[3918] 

[3141] 

[359] 

[ 1112 ] 


2160 IF axl<21 AND ayl>ll THEN CA [2852] 
LL &A00D.FN POCaXl,aYl),&8000 
2170 IF ax<21 AND ay>ll THEN CALL [1692] 
&A00D.FN POCaX.aY),ram 
2180 GOTO 2100 [359] 

2190 DEF FN POCX,Y)=&C050+CY-12)* [1007] 
160+(X-20)*4 

2200 IF axl>19 AND ayl>ll THEN CA [3368] 
LL &A00D.FN POCaXl,aYl),&8000 
2210 IF ax>19 AND ay>ll THEN CALL [2432] 
&A00D.FN PO(aX.aY),ram 


2220 GOTO 2100 [359] 

2230 X=0: FOR H=1 TO 23:FOR G=1 TO [6031] 
39 :A=PEEKC&9C7F+X):PRINT DSING " 

#":A::X=X+1:NEXT G:PRINT:NEXT H 
2240 REM : : : : : : : : : : : : : : : : : :::::: [1736] 

2250 REM : : [419] 

2260 REM : FIN DE PARTIE [858] 

2270 REM : ; [419] 

2280 REM ::::::::: : : : : : [1736] 

2290 PEN 12 :WHILE INKEY$<>"":WEND [938] 
2300 a$="BRAVO C'EST PAS MAL,MAIS [7130] 

ON PEUT FAIRE MIEUX-POUR RE ^ 

JOUER APPUYEZ SUR UNE TOUCHE - 


2310 B$="CE SOIR L’OMELETTE SERA [8138] 
REMPLACEE PAR UN PLAT DE NOUILLES 
A MOINS QUE VOUS VOULIEZ REJOUER 

- POUR CELA APPUYEZ SUR UNE T 

OUCHE-" 

2320 IF TR=5 THEN C$=A$: RESTORE 2 [4621] 
450:GOTO 2340 

2330 C$=B$:RESTORE 2450:GOTO 2340 [886] 
2340 P=1 : WHILE Po0:READ P,D [1366] 

2350 SOUND 49,P/2,INTC6*d*0.8334) [1840] 
,15 

2360 SOUND 42,P,INTC12*d*0.8334), [2179] 
15 

2370 SOUND 28.P/3,INTC6*d*0.8334) [1655] 
,15:WEND 

2380 FOR T=1 TO 3000:NEXT:CALL &B [2028] 

2390 LOCATE 1,1:PRINT SPACE$C20): [3170] 
WHILE INKEY$<>"":WEND 

2400 T$=”":PEN 9:WHILE t$=”":SOUN [2629] 
D 1,RND*600+50,5,15 

2410 d$=LEFT$(c$,1) [324] 

2420 LOCATE 1,1:PRINT MID$Cc$,l,2 [894] 
0 ) 

2430 t$=INKEY$:c$=RIGHT$Cc$,LENCc [1888] 
$)-1)+d$:WEND:CLS 

2440 FOR h=14 TO 18:mlCH)=0:NEXT: [889] 
GOTO 270 

2450 DATA 478,2,426.1,358,1.379,1 [8696] 
,426.1,319.2.319,2,319,1,284,1,37 

9.1.358.1.426.2.426.2.426.1.358.1 
,379,1,426.1,478,1,239,1,253,1,28 

4.1.319.1.358.1.379.1.426.1.478.1 

, 0,0 

2460 DATA 426,4,426,3,426,2,426,3 [3582] 
.358,4,379,2,379,3,426,2,426,3.47 


8,2,426,3,0,0 

2470 REM [1736] 

2480 RÈM : : [419] 

2490 REM : CREATION DES 4 TAB : [1423] 
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2500 REM : : [419] 

2510 REM ::::::::::::::::::::::: [1736] 

2520 deb=&98FD:DEF FN POK(A,B)=de [2480] 
b+(B-l)*39+A 

2530 FOR h=deb TO deb+896:POKE h, [1876] 
0 :NEXT 

2540 GOSUB 2700:x=14:z=31:GOSUB 2 [2541] 
730 :x=7:z=14:GOSUB 2770 

2550 nbc=75:nbo=35 : sp=3:GOSUB 281 [3981] 
0:GOSUB 2850:nbp=5:GOSUB 2890 
2560 deb=&957C:DEF FN POK(A,B)=de [1976] 
b+(B-l)*39+A 

2570 FOR h=dëb TO deb+896:PÔKE h. [1876] 
0 :NEXT 

2580 GOSUB 2700 :x=18:z=18:GOSUB 2 [4118] 

730:x=10:z=14:GOSUB 2770 

2590 nbc=70:sp=3:GOSUB 2850:nbp=5 [3651] 

:GOSUB 2890:nbp=25:GOSUB 2890 

2600 deb=&91FB:DEF FN POK(A,B)=de [1857] 

b+(B-l)*39+A 

2610 FOR h=deb TO deb+896:POKE h. [1876] 
0 :NEXT 

2620 GOSUB 2700 :x=l5 :z=28:GOSUB 2 [2004] 
730 

2630 nbc=70:sp=3:GOSUB 2850:nbp=2 [3391] 
:GOSUB 2890:nbp=27:GOSUB 2890 
2640 deb=&8E7B:DEF FN POK(A,B)=de [2285] 
b+(B-l)*39+A 

2650 FOR h=deb TO deb+896:POKE h, [1876] 
0 :NEXT 

2660 GOSUB 2700 :x=ll:z=18:GOSUB 2 [2614] 
770 

2670 nbc=50:sp=3:GOSUB 2850:nbc=2 [3536] 
5 :sp=2:GOSUB 2850:nbp=2:GOSÜB 289 
0 

2680 RETÜRN [555] 

2690 REM le cadre [690] 

2700 FOR h=l TO 39:POKE FN POK(h, [4480] 

l),l:POKE FN POK(h,23).1:NEXT 

2710 FOR h=2 TO 22:POKE FN POK(l, [1686] 

h),1:POXE FN POK(39,h), 1:NEXT:RET 

ÜRN 

2720 REM lignes verticales [1984] 

2730 FOR g=l TO 2:FOR h=2 TO 20:y [3560] 
=INT(RND*5)+1 

2740 IF y=l THEN 2750 ELSE y=2 [1571] 

2750 POKE FN POK(x,h),y:NEXT h:x= [2692] 
z:NEXT g:RETÜRN 

2760 REM les horizontales [1265] 

2770 FOR g=l TO 2:FOR h=2 TO 38:y [2530] 
=INT(RND*5)+1 

2780 IF'y=l THEN 2790 ELSE y=2 [1213] 

2790 POKE FN POK( h,x),y :NEXT h :x= [3886] 
z:NEXT g:RETÜRN 

2800 REM les oeufs [1401] 

2810 FOR h=l TO nbo [709] 

2820 x=INT(RND*35)+3:y=INT(RND*17 [5018] 
)+3: IF PEEK(FN pok(x,y))=0 THEN 2 
830 ELSE 2820 

2830 POKE FN POK(x.y),5:NEXT:RETU [1262] 
RN 

2840 REM les cartons [1293] 

2850 FOR h=l TO nbc [689] 

2860 x=INT(RND*35)+3:y=INT(RNI>*17 [4227] 
)+3:IF PEEKCFN pok(x,y))=0 THEN 2 


PRESENTATION 

(facultative) 


870 ELSE 2860 

2870 POKE FN POK(x,y),sp:NEXT:POK 

E FN POK(2,5),11 :RETÜRN 

2880 REM les portes 

2890 FOR h-nbp TO nbp+10:POKE FN 

POK(h,22) , 3 :NEXT 

2900 FOR h=20 TO 22:POKE FN POK(n 
bp+11,h),1 :NEXT:POKE FN POK(nbp+l 
0,20),1:POKE FN POK(nbp+10. 21 ),4 : 
RETÜRN 
2910 REM 
2920 REM 
2930 REM 
2940 REM 
2950 REM 
2960 REM 

2970 MODE 0:BORDER 0:RESTORE 2980 
:FOR h=0 TO 15:READ a:INK h,a:NEX 
T 

2980 DATA 0.2.3.11.9.24,3.6.6,16. 
6,13,26.24.9,18 

2990 RESTORE 3390:ENV 1,1,15.1.3, 

-1,4,12,-1.8 :EVERY 25,1 GOSUB 337 

0 ' 

3000 x=0: FOR h=80 TO 112 STEP 2:P" 
LOT 96-x.h, 11 -.DRAW 288+x.h: x-x+2 : 
NEXT 

3010 FOR h=80 TO 96 STEP 2:PLOT 2 
88,h:DRAW 496.208:DRAW 520.208:NE 
XT 

3020 FOR h=l TO 3:CALL &A00D.&C5D 
7+(h*4),&81C0 

3030 CALL &A00D,&C5CB+(h*4).&8140 
:NEXT 

3040 FOR h=l TO 100 :x=INT(RND*160 

)+l:y=INT(RND*20)+l 

3050 PLOT 112+x,64+y,7:x=INT(RND? 

160)+1:y=INT(RND*20)+l 

3060 PLOT 112+x,64+y,5:NEXT:INK 7 

.24,6:INK 5,6,24 

3070 PEN 0:LOCATE 4.21:PRINT CHR$ 
(22)+CHR$(1)+CHR$(215) 

3080 LOCATE 9,21:PRINT CHR$(214)+ 
CHR$(22)+CHR$(0) 

3090 SYMBOL 249.0.138.142,138,138 
,138,234.0 

3100 SYMBOL 250.0,224.128,128.128 
.128,224,0 

3110 SYMBOL 251.0,238,138,138.234 
,42,238,0 

3120 SYMBOL 252,0.238,132.132.196 
,132,132,0 

3130 SYMBOL 253,0,174.170,170,174 
,234,170,0 

3140 SYMBOL 254,0,238,168,232.204 
,168,174,0 

3150 lmc$=CHR$(249)+CHR$(250)+CHR 
$(251)+CHR$(252)+CHR$(253)+CHR$(2 
54) 

3160 PLOT -10,-10,12:TAG:MOVE 40, 

50 :PRINT LMC$; :TAGOFF 

3170 FOR H=1 TO 5:MOVE 30,H:DRAW 

610,H,4 :NEXT:FOR H=6 TO 20:MOVE 3 

0,H: DRAW 610,H,8:NEXT 

3180 FOR H=20 TO 22:MOVE 30,H:DRA 
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PROGRAMMATION 


W 610,H,1 :NEXT:FOR H=1 TO 8:M0VE 
H, 26 : DRAW ÏÏ,374,4:NEXT 
3190 FOR H=8 TO 20:MOVE ïï.26:DRAW [5699] 
H,374,8 :NEXT: FOR H=20 TO 22:MOVE 
H,2 6 : DRAW H,374,1:NEXT 
3200 FOR H=616 TO 620:MOVE H.26:D [6348] 
RAW H,374,1:NEXT:FOR H=620 TO 632 
:MOVE H,26:DRAW H,374.8:NEXT 
3210 FOR H=632 TO 636:MOVE H.26:D [5526] 
RAW H,374,4:NEXT:FOR H=394 TO 400 
:MOVE 30,H:DRAW 610,H,4:NEXT 
3220 FOR H=382 TO 392:MOVE 30,H:D [5456] 
RAW 610,H,8:NEXT:FOR H=378 TO 380 
:MOVE 30,H : DRAW 610,H,1:NEXT 
3230 X=20:FOR T=1 TO 22:MOVE T.X: [2875] 
DRAW'T,20,15:X=X-1:NEXT T 
3240 X=380: FOR T=1 TO 22:MOVE T.X [3296] 
:DRAW T,3 80 :X=X+1:NEXT T 
3250 X=380:FOR T=618 TO 636:MOVE [3310] 
T,380 : DRAW 618.X:X=X+1:NEXT T 
3260 X-1 : FOR T=618 TO 636:MOVE T, [2075] 
20:DRAW T,X:X=X+1:NEXT, T 
3270 PEN 3 :LOCATE 3,6:PRINT "L’QM [4105] 
ELETTE":PEN 10:LOCATE 7,9:PRINT ” 
INFERNALE" 

3280 WHILE INKEY$="":WEND:INK 1.2 [3050] 
6:INK 2,13:INK 3,15 

3290, MODE 1 :LÔCATE 11.1:PEN 3:PRI [6611] 
NT "L’OMELETTE INFERNALE":LOCATE 
11.2:PEN 1:PRINT "===============. 


3300 PEN 2:LOCATE 1,4:PRINT" FOX [9603] 
,1e renard jubile.Il vient de tro 
u-ver un poulailler remplit d'oeu 
fs.” 

3310 PEN 2 :LOCATE 1,7:PRINT” Il [13920] 
va falloir qu'il en fasse sortir 
leplus possible.Le principal etan 
t qu'a la fin des quatres tableau 
x ,il en p'ossedeune douzaine." 

3320 LOCATE 1.12:PRINT" Il devra [8453] 
se mefier des gardiens de lafer 
me ,des pierres qui roulent et d 
e laçasse toujours possible." 

3330 LOCATE 1,16:PRINT" Les cart [8919] 


ons amortissent le deplacementdes 
oeufs.Les pierres permettent d'e 
cra-ser les intrus." 

3340 LOCATE 1,2-0:PRINT" Le premi 
er tableau comporte 36 oeufs .Dan 
s tous les suivants.vous retrouve 
rez seulement les oeufs qui auron 
t precedem-ment passes la porte." 
3350 LOCATE 20,25:PEN 1:PRINT "<J 
OYSTICK SEULEMENT>" 

3360 WHILE INKEY$="":WEND:mu=REMA 
IN(1):RETURN 

3370 DI:IF <SQ(1) AND 7)=0 THEN E 
I:RETURN ELSE READ j,k,l:IF j=-l 
THEN RESTORE 3390:GOTO 3370 
3380 SOUND 1.j,k.0,l:GOTO 3370 
3390 DATA 159,48.1,142,12,1,119,1 
2,1,127,12,1,142,12,1.106,24,1,10 
6,24,1,106.12.1,95,12,1,127,12,1, 
119 ,■12,1,142,24,1,142.24.1,142.12 
,1,119,12,1,127,12,1,142.12,1,159 
,12.1,80,12.1,84,12,1,95,12,1,106 
,12.1,119,12,1,127,12.1,142,12,1, 

159.48.1.142.12.1 

3400 DATA 119,12,1,127,12,1,142.1 

2.1,106-,24,1,106,24,1,106,12,1,95 

,12,1.127,12,1,119,12,1,142,24.1-. 

142.'24,1,142,12,1,119,12., 1,127,-12 

,1,142,12.1,159,12,1,106,12,1,142 

.12,1.127,12,1,159.24,1,159.24,0, 

159,48,1,142,12,1.119,12,1,127,12 

,1,142,12,1,106,24,1 

3410 DATA 106,24,1,106,12,1.95,12 

,1.127,12.1,119,12,1,142.24,1,142 

.24.1,142.12.1.119.12.1.127.12.1, 

142.12.1.159.12.1.80.12.1.84.12.1 
,95,.12,1,106,12,1,119.12,1,127,12 
,1,142.12,1,159,48,1,142,12.1.119 
,12.1.127.12,1,142.12.1,106,24,1. 

106.24.1.106.12.1 

3420 DATA 95,12,1,127,12,1.119,12 
.1.142,24.1,142,24,1,142,12,1,119 
,12.1,127,12,1,142,12.1.159,12,1, 
106,12.1,142,12,1,127.12.1,159,48 
, 1 .- 1 ,- 1,-1 
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06 

6E 

00 10 

FD: 22 

8358:00 

30 

3C 
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00:77 

A0C0:A5 

A0 

ED 

4A 

22 

2E 


C3 :6A 

A338-.C1 

10 

F7 

Cl 

09 

01 

3A 

3D.-16 

8360:02 

74 

30 

02 

02 

74 

30 

01:7F 

A0C8: 82 

A0 

21 

50 C0 

22 

30 

A0:A9 

A340:A3 

FE 

01 

02 

62 

A3 

3A 

00: DF 

8368:00 

30 

92 

01 

03 

BA 

92 

02: 7E 

A0D0.-01 

AD 

01 

2A 

A5 

A0 

ED 

4A:3A 

A348:Al 

FE 

02 


57 

A3 


3D: 61 

8370:57 

FF 

AB 

00 

F’F 

AB 

47 

03:4F 

A0D8:22 

2E 


C3 

82 

A0 

21 

50:93 

A350:A3 

CD 

B6 

A0 

C3 

04 

A3 

3E:9E 

8378:5F 

03 

CF 

8F’ 

07 

0F’ 


0B:0F 

A0E0:C0 

22 

30 A0 01 

00 

01 

2A: 70 

A358:03 

32 

3D A3 

CD 

OA 

A0 

C3 : DA 

8380:70 

03 

03 

70 

21 

30 

F’0 

12:27 

A0E8:A5 

A0 

ED 

4A 

22 

2E 


C3 :92 

A360:C4 

A3 

FE 02 

02 

85 

A3 

3A:3C 

8388:21 

30 

70 

12 

12 

30 

70 

Al :B6 

A0F0:8 2 

A0 

22 

30 

A0 

01 C0 

01 :E6 

A368:00 

Al 

FE 04 

C2 

VA 

A3 

3E:62 

8390:12 

03 

03 

Al 

12 

13 

23 

Al: 81 

A0F8:2A 

B6 


ED 

4A 

22 

2E 

A0 :42 

A370:0J 


3D 

A3 

CD 

A5 A0 

C3 :12 

8398:12 

21 

52 

Al 

01 

21 

52 

03: 0A 

A100:02 

01 



IC 

9D 

D4 

C2:D5 

A378:C4 

A3 

3E 

04 

32 

3D 

A3 

CD: 34 

83A0:12 

12 

Al 

70 

30 

21 

12 

70 :B0 

A108:C5 

06 

F5 

ED 

78 

1F 


FB : 47 

A380:DE 

A0 

C3 

04 

A3 

FE 

03 

C2:E2 

83A8:30 

30 

30 

Al 

21 

30 

30 

02 :F4 

Al10 :Cl 

09 

CD 

24 

BB 

F'5 

CB 

47:25 

A388:A6 

A3 

3A 

00 Al 

FE 

01 

C2:F5. 

83B0:03 

30 

21 

02 

01 

12 

12 

Al :F8 

A118:C2 

32 

Al 


F’5 

GB 

4F 


A390:9B 

A3 

32 

3D A3 

CD 

A5 

A0 : 1E 

83B8:12 

Al 

12 

Al 

12 

Al 

01 

02:80 

A120:C8 

Al 

Fl 

F5 

0B 

57 

C2 

31:49 

A398:C3 

C4 

A3 

3E 

04 

32 

3D 

A3: 6A 

83C0:70 

03 

03 

70 

21 

30 

F’0 

12:67 

A128:A2 

Fl 

F5 

CB 

5F 

C2 

AB 

A2:7C 

A3A0: CD 

DE 

A0 

03 

04 

A3 

3A 

00 :F4 

83C8 :21 

30 

70 

12 

12 

30 

70 

Al :F6 

A130:F1 

09 

3E 

01 

32 

00 Al 

2A:C3 

A3A8:Al 

FE 

01 

02 

B9 

A3 

3E 

02:24 

83D0:12 

03 

03 Al 

12 

13 

23 

Al :C1 

A138:04 

Al 

11 

27 

00 

ED 

52 

E5:E2 

A3B0:32 

3D 

A3 

OD 

B6 

A0 

C3 

C4:DF 

8308:12 

21 

52 

Al 

03 

21 

52 

02-.4C 

A140-.7E 

03 

26 

A4 

4A 

Al 

El 

C3-.5E 

A3B8-.A3 

3E 

03 

32 

3D 

A3 CD 

CA: 39 

83E0: 30 

12 

Al 

21 

30 

21 

12 

70 :D2 

A148:30 

Al 

2A 

04 

Al 

AF 

.77 

El: 71 

A3C0:A0 

03 

CM 

A3 

3A 

00 Al 

FE:DA 


30 

30 

70 

01 

30 

30 

52:32 

A150:3E 

0V 

77 

22 

04 

Al 

3 A 

00: 9E 

A3C8:01 

02 

DA 

A3 

01 

40 

06 

2A : 09 

83F0:01 

12 

30 

03 

12 

Al 

21 

02: 4B 

A158: Al 

FE 

01 

CA 

6D 

Al 

FF! 

02 :AA . 

A3D0:06 

Al 

ED 

4A 

22 

06 

Al 

C3:F7 

83F8:12 

Al 

12 

Al 

03 

02 

12 

Al :2A 

A160:CA 

BD 

A2 

FE 

03 

OA 

D9 

Al :E5 

A3D8:0B 

A4 

FE 

02 

02 

ED 

A3 

01 : A5 

8400:01 

02 

57 

AB 

57 

AB 

03 

57 :BC 

A168:C3 

43 

A2 


83 

3A 03 

Al: 40 

A3E0:48 

00 

2A 06 

Al 

ED 

42 

22 :F2 

8408:AB 

03 

13 

23 

13 

33 

23 

13:20 

Al70:3D 

32 

03 

Al 

F’E 

0B 

02 

89 :0D 

A3E8:06 

Al 

C3 

0B 

A4 

FE 

03 

C2 :95 

8410:23 

03 

03 

13 

13 

07 

0B 

23:00 

A178:Al 

3A 

3D A3 

F'E 

01 

CA 

89 :3B 

A3F0:00 

A4 

01 

40 


2A 

06 

Al : 2A 

8418 : AB 

0F 

27 

17 

AB 

0F’ 

27 

17 :B0 

A180:A1 

FE 

02 

CA 

89 

Al 

03 

3E: A4 

A3F8:ED 

42 

22 

06 

Al 

03 

0B 

A4 :AE 

8420:AB 

0F 

0F 17 

F’F 

07 

0B 

3F: 60 

A188: A3 

3A 

01 

Al 

F'E 

01 

02 

9A:E1 

A400.-01 

48 

00 

2A 06 

Al 

ET) 


8428 : FF 

2B 

17 

17 

FF 

BF’ 

2B 

17 :FC 

Al90:Al 

21 

00 

83 

22 

6B 

Al 

C3 :CB 

A408:22 

06 

Al 

3A 


Al 

FE 


8430:FF 

AB 

03 

17 

57 

03 

03 

2B:A0 

A190:A0 

Al 

21 

40 

82 

22 

6B 

Al :C9 

A410:C2 

19 A4 

11 

C0 

82 

C3 

1C:D9 

8438:57 

57 

3F 

2B 

01 

FF 

3F 

02 :F2 

A1A0-.CD 

A9 

Al 

CD 

A9 

Al 

C3 

30:5F 

A418: A4 

11 

00 

82 

2A 

06 

Al 

CD : 4F 


AB 

01 

02 

AB 

03 

57 

AB : 9E 

A1A8.-A1 

CD 

25 

A3 

2A 

06 

Al 

01 :E4 

A420:19 

A0 

03 


Al 

00 32 

25 :D1 

8448:13 

23 

03 

57 

'23 

13 

33 

23:28 

A1B0: 50 

00 

ED 

42 

22 

06 Al 

ED:0D 

A428:A4 

FE 

00 

CA 

4A 

Al 

El 

C3 : 0B 


03 

03 

13 

13 

07 

0B 

23:40 

A1B8:5B 

6B 

Al 

CD 

08 

Al 

CD 

19 :F2 

A430:30 

Al 

AF 

32 

25 


C3 


8458:AB 

0F' 

27 

17 

AB 

0F 

27 

17 :F0 

A1C0:A0 

CD 

2 F 

A3 

OD 

2F 

A3 

C9:8C 

A438:Al 

21 

7F 

90 

11 

FE 

98 

01:25 

8460:AB 0F 0F 

17 

FF 

07 

0B 

3F:A0 

A1C8:3E 

03 

32 


Al 

2A 04 

Al: 88 

A440:81 

03 

ED 

B0 

C9 

21 

FE 

98:57 


2B 

17 

3F’ 

AB 

17 

3F 

3F : C0 

A1D0:11 

27 

00 

ED 

5A 

E5 

C3 

40 :F9 

A448:11 

7F 

90 

01 

81 

03 ED 

B0 ’: 6 5 

8470:AB 03 

17 

3F 

57 

03 

03 

2B : 18 

A1D8 : Al 

3A 

03 

Al 

30 

32 

03 

Al: 90 

A450:C9 

00 

00 

m 

00 

00 

00 

00 :BD 
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CPC 


PROGRAMMATION 


Stock de coke 

GOOD MOON 


T r ous disposez de neuf 
1/ vies pour ramener à 
r bord de votre navette, 
neuf bâtons de pixelium 
(espèces de stalagmites jaunes 
qui figurent au premier 
tableau). Ne pouvant en trans¬ 
porter qu'un à la fois, vous 
êfes condamné à d’incessants 
va-et : vient. De plus, c'est fou 
ce que la lune est mal fréquen¬ 
tée ces derniers temps. De 
toute façon vous n'avez pas le 
choix, car la navette ne décolle 
automatiquement qu'une fois 
chargée du précieux métal. 


Sauvegarde 

Sauvez sous le nom «GOOD- 
MOON» le court listing Basic 
de chargement. Entrez ensuite 
par Amsaisie V.2 en vous 



Face à la pénurie de pixelium qui 
paralyse le fonctionnement des centrales 
bionucléaires, le gouvernement mondial, 
en vue d'une exploitation industrielle, 
vous charge d'aller quérir sur la lune 
quelques échantillons. 


reportant à son mode d'em¬ 
ploi, les deux listings de codes 
hexadécimaux. 


Nom 

Adr. déb. 

Long 

GOOD1 

&4E20 

&12AD 

GOOD2 

&7530 

&1CFA 


La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent raisonnablement de mor¬ 
celer leur travail en plusieurs 
fichiers qui devront ultérieure¬ 
ment être réunis en deux 
fichiers définitifs. 


Luc Guillaume 
(Programmation & musique) 
Hervé Guillaume 
(Graphisme) 


1 ••*•***«***•** 

*».*** 

** 


4EA0:30 


CC 

88 

2A 


3C 

28 

98 

4FC0: FF 

AA 

0C 

08 

8A 

00 

A2 

A2 

D6 










CC 

88 





7E 








00 


3 '«GOOD 

M 0 0 N 



4EB0:30 


CC 

88 

2A 


3C 

28 

A8 










4 '* 






[175] 

4EB8:2A 

2A 

CC 

88 


20 



B8 





AA 


00 

00 


5 ’* 






4EC0:30 

20 

CC 

88 

00 

2A 

00 

28 

3E 









56 

6 '* 



* 


4EC8:00 

2A 


88 

00 

20 

00 

00 

4A 






AA 




7 ’* Black System 1990 

* 

[753] 

4ED0:30 

20 

CC 

88 

2A 

2A 

3C 

28 

C4 









60 

8 '* 





* 


4ED8:2A 

2A 

CC 

88 

30 

20 


00 

D8 







00 

00 


9 ■«**» 








CC 

88 


2A 

30 

28 

D4 
















[117] 

4EE8: 00 

2fl 

CC 

88 

30 

20 


00 

BE 

5008:8A 


08 

08 

AA 



00 


11 MEMORY 19999 





4EF0:00 

00 

00 

00 

00 

00 

00 

00 

3E 










12 LOAE 

1G00D1.BIN". 2000 


4EF8: 00 








46 







00 

00 










00 

00 

00 

00 

00 

00 

00 

4F 










13 LOAE 

1G00D2.BIN" 


[1235] 

4F08:00 

00 

00 

00 

00 

00 

00 

00 

57 

















4F10:00 

AA 

55 

08 

AE 


0D 

A2 

DF 










14 CALL 







4F18:AE 

0A 

55 

08 

00 

AA 

00 

00 

44 

5038:8A 


08 

08 



00 

00 









4F20:00 

AA 

55 

08 

AE 


0D 

A2 

EF 

















4F28:AE 





AA 



54 

5048:8A 

8A 

00 

08 

FF 

AA 

00 

00 

71 








4F30: AA 

00 

5D 

00 


AA 

A7 

08 

53 

5050:FF 

AA 

00 

08 

8A 

8A 

F3 

A2 

DA 








4F38-.0E 

AA 

5D 


AA 




52 

5058:8A 

00 

08 

00 

AA 

00 

00 

00 


4E20:00 

00 00 

00 




00: 6E 

4F40:00 

00 

00 

00 

00 

00 

00 

00 

8F 

5060:FF 

AA 

00 

08 

8A 

8A 

A2 

A2 

B3 

4E28:00 

00 00 

00 

00 

00 

00 

00:76 

4F48:00 

00 

00 

00 

00 

00 

00 

00 

D7 

5068:8A 


0C 

08 

AE 

AA 

00 

00 


4E30:00 

00 00 





00;7E 

4F50:00 

00 

00 

00 

00 

00 

00 

00 

9F 










4E38:00 

15 00 

44 

00 

10 



4F58:00 

00 

00 

00 

00 

00 

00 

00 

E7 

5078:CF 

00 

08 

08 

AA 

AA 

00 

00 

1D 

4E40:55 

00 04 

00 

45 

00 

51 

00:7F 

4F60: FF 

AA 

0C 

08 

8A 

8A 

F3 

A2 

E9 

5080:FF 

AA 

00 

08 


00 

F3 



4E48:00 

00 04 

00 

55 

00 

00 

00: 4B 

4F68:8A 

8A 

08 

08 

AA 

AA 

00 

00 

DB 

5088:00 

8A 

00 

08 

FF 

AA 

00 

00 

27 

4E50:30 

20 CC 

88 

2A 

2A 

28 

28:B8 

4F70: FF 

AA 

0C 

08 

8A 

8A 

F3 

00 

E9 

5090:FF 

AA 

00 

08 

45 

00 

51 

00 

07 

4E58.: 2 A 

2A CC 

88 

30 

20 


00:58 

4F7 8 : 8A 

8A 

0C 

08 

FF 

AA 

00 



5098:45 

00 

04 

00 

55 

00 

00 

00 

E2 

4E60:30 

00 ce 

00 

16< 

00 

14 


4F80:FF 

AA 

0C 

08 

8A 

00 

A2 

00 

86 

50A0: AA 

AA 

08 

08 

8A 

8A 

A2 

A2 

92 

4E68:15 

00 CC 

88 

30 

20 

00 

00 : FF 

4F88:8A 

00 

0C 

08 

FF 

AA 

00 

00 

90 

50A8:8A 

8A 

00 

08 

FF 

AA 

00 

00 

DI 

4E70:30 

20 CC 

88 

00 

2A 

30 

28:92 

4F90: FF 

00 

0C 

08 

8A 

8A 

A2 

A2 

8E 

50B0: AA 

AA 

08 

08 


8A 

A2 

A2 

A2 

4E78: 2A 


88 




00:24 

4F98: 8A 

8A 

00 

08 

FF 

00 

00 

00 

04 

50B8:4D 

08 

AE 

AA 

55 

00 

00 

00 

00 

4E80:30 

20 CC 

88 

00 

2A 

14 

28: 8A 

4FA0: FF 

AA 

0O 

08 

8A 

00 

F3 

00 

DD 

50C0:AA 

AA 

08 

08 

8A 

8A 

A2 

A2 

B 2 

4E88:00 

2A CC 

88 

30 

20 


00: 5E 

4FA8:8A 

00 

00 

08 

FF 

AA 

00 

00 

BC 

50C8:8E 

8A 

51) 

08 

AA 

AA 

00 

00 

3F 

4E90:20 

00 88 

00 2A 

2A 

28 

28 :BC 

4FB0:FF 

AA 

08 

00 

8A 

00 

F3 

00 

Cl 

50D0:AA 

AA 

08 

08 

8A 

8A 

51 

00 

7B 

4E98: 3F 

2A 00 

88 

00 

20 

00 

00:59 

4FB8:8A 

00 

08 

00 

AA 

00 

00 

00 

FB 

50D8:8A 

8A 

08 

08 

AA 

AA 

00 

00 

4C 


20 













CRC 


PROGRAMMATION 


50E0 

AA 

AA 

08 

08 

8A 

8A 

F3 

A2 

09 

5360 

84 

BE 

B2 

C8 

95 

89 

79 

4A 

: A7 

55E0 

:C0 

80 

40 

79 

80 

40 

79 

80 

:E8 

50E8 

45 

00 

04 

00 

55 

00 

00 

00 

32 

5368 

C4 

64 

16 

48 

n 

n 

89 

EA 

:E8 

'55E8 

40 

3C 

80 

CK 

CK 

CK 

16 

D9 

17 

50F0 

FF 

AA 

0C 

08 

00 

8A 

51 

00 

4A 

5370 

40 

34 

E2 

80 

4|i 

21 

E2 

n 

: 45 

55F0 

29 

16 

71 

29 

30 

CK 

30 

00 

•Il 

50F8 

8A 

00 

0C 

08 

FF 

AA 

00 

00 

0D 

5378 

40 

34 

E2 

80 

41! 

21 

33 

8 « 

:C3 

55F8 

C0 

00 

40 

79 

80 

40 

30 

80 

i’1 

5100 

10 

30 

30 

30 

30 

CC 

CC 

CC 

BD 

5380 

40 

30 

9E 

80 

4« 

CK 

30 

80 

4A 

5600 

14 

F3 

A2 

30 

C0 

CK 

79 

F3 

5D 

5108 

64 

CC 

3F 

3F 

64 

91) 

3D 

3F 

53 

5388 

00 

40 

CK 

00 

40 

n 

9D 

80 

'86 

5608 

DB 

79 

i'3 

IC 

16 

33 

09 

81 

91 

5110 

64 

3E 

3E 

3E 

64 

3F 

31) 

3C 

EC 

5390 

DI 

C4 

3E 

E2 

94 

94 

A7 

48 

AB 

5610 

79 

EA 

40 

30 

80 

40 

79 

80 

02 

5118 

64 

3E 

3E 

79 

64 

3F 

3C 

79 

Cl 

5398 

95 

95 

0E 

EA 

C4 

C4 

3E 

E2 

AA 

5618 


79 

80 

40 

33 

80 


CK 

83 

5120 

64 

3E 

3C 

F3 

64 

3E 

79 

i'3 

20 

53A0 

90 

90 

9E 

68 

DI 

E2 

C0 

C0 

.BB 

5620 

C0 

46 

F 3 

29 

12 

F3 

29 

C0 

6A 

5128 

64 

3E 

79 

F3 

30 

30 

30 

20 

F0 

53A8 

DI 

79 

64 

6A 

84 

BE 

B2 

38 

:B8 

5628 

CK 

30 

00 

30 

00 


79 

80 

8D 

5130 

CG 

CC 

CC 

30 

3F 

3F 

CC 

98 

12 

53B0 

95 

89 

79 

4A 

C4 

64 

16 

48 

: 43 

5630 

40 

30 

80 

14 

i'3 

A2 

C0 

CK 

.El 

5138 

3F 

3E 

6E 

98 

3D 

3D 

3D 

98 

F8 

53B8 

90 

90 

89 

EA 

CK 

DI 

A3 


•19 

5638 

30 

79 

F3 

E7 

79 

i'3 

A6 

16 

t'E 

5140 

3C 

3E 

3F 

98 

B6 

3D 

3D 

98 

CD 

53C0 

40 

F3 

29 

80 

DI 

3C 

12 

20 

•AI' 

5640 

3C 

7D 

81 

79 

42 

40 

C0 

80 

3D 

5148 

B6 

3C 

3F 

98 

F3 

3C 

31) 

98 

76 

53C8 

94 

03 

C4 

60 

90 

9E 

30 

C8 

8F 

5648 

40 

79 

80 

40 

79 

80 


30 

4D 

5150 

F3 

B6 

3D 

98 

F3 

B6 

31) 

98 

85 

53D0 

C0 

C0 

C0 

C0 

00 

CK 

80 


A3 

5650 

80 

30 

30 

30 

9C 

i'3 

29 

34 

63 

5158 

64 

3E 

79 

F3 

64 

3E 

3C 

i'3 

64 

53D8 

40 

6E 

60 

80 

DI 

3E 

C8 

E2 

72 

5658 

F3 

29 

30 

30 

30 

51 

60 

A7 

41 

5160 

64 
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Pour un bit de plus 

PORT 8 BITS POUR CPC 


S 'il est impossible, sans 
changement majeur du 
soft résident et de l'élec¬ 
tronique du CPC, d'aug¬ 
menter la quantité de données 
émises, le montage suivant 
donne la possibilité, moyen¬ 
nant un minimum de matériel, 
de piloter des systèmes 8 bits à 
partir des sept disponibles sur 
le port CPC. Un exemple 
typique est le pilotage d'une 
imprimante à code IBM qui 
exige un code 8 bits. Certaines 
imprimantes font de même en 
mode graphique. 

Principe 

L'octet à émettre est tout 
d'abord scindé en deux quar- 
tets représentant respective¬ 
ment la partie basse pour les 
bits de poids faible, et haute 
pour les bits de poids fort. A 
chacun de ces quartets, on 
ajoute une valeur hexa telle 
que le CPC soit capable de 
générer le caractère ASCII cor¬ 


Le port imprimante du CPC, c'est bien 
connu, est de type Centronics incomplet. 
L'ordinateur se contente en effet de four¬ 
nir 7 bits de données, un signal STB de 
validation de données et de prendre en 
compte l'information de disponibilité du 
terminal qui lui est raccordé. 


respondant. On envoie ensuite 
ces deux caractères successive¬ 
ment sur le port imprimante, 
au lieu du seul octet qui serait 
inévitablement amputé du bit 
7. C'est là qu'intervient lé petit 
montage futé... 

En réalité, seuls les 4 bits, de 
poids faible des caractères 
Ascii ci-dessus sont utilisés. 
Dans un premier temps, est 
mémorisée dans des bascules 
là partie basse du caractère 
correspondant à la partie 
haute de l'octet de départ, puis 
on transmet simultanément 
ces 4 bits et la partie basse du 
caractère qui représente la par¬ 
tie basse de l'octet et le tour est 
joué! Comme tout ceci peut 
paraître confus, un exemple 
apportera sûrement les éclair¬ 
cissements nécessaires. 

Soit à transmettre l’octet &9C, 



on peut le représenter comme 
suit: 

D7 D6 DS D4 D3 D2 DI DO 
10 01 1100 
La partie haute est 9, soit 1001, 
la partie basse est C, soit 1100. 
Ajoutons à chaque quartet la 
valeur &40. On obtient &49 et 
&4C, c'est-à-dire les caractères 
Ascii «I» et «L». Envoyons 
vers le montage, «I» puis «L». 
Celui-ci va prendre la partie 
basse de «I», soit &9 comme 
partie haute du caractère à for¬ 
mer et la partie basse de «L», 
soit &C comme partie basse. Il « 
va donc transmettre la valeur 
&9C, à savoir l'octet de départ. 
Terminé. 

Montage 

C'est la simplicité même. 
Quatre circuits intégrés très 
courants suffisent pour obtenir 
le résultat escompté. A la mise 
sous tension, ou lors d’un 
Reset, la bascule «D» a ses sor¬ 
ties respectivement à 0 pour Q 
et 1 pour /Q. Lors de l'envoi 
du premier caractère («I» dans 
notre exemple), la partie basse 
est mémorisée dans le latch 
74LS373 sur le front de descen¬ 
te de /STB. Pendant toute la 
durée de ce premier /STB, la 
bascule «D» 74LS74 n'autorise 
son passage que vers le 


74LS373. Quand le /STB 
remonte, la bascule «D» chan¬ 
ge d'état. Donc, le deuxième 
/STB passera vers la sortie 
alors qu'il n'atteindra pas le 
latch. Lorsque le caractère «L» 
de l’exemple sera envoyé, les 4 
bits de poids faible seront 
aiguillés vers les poids faibles 
de la sortie et les données 
mémorisées dan» le latch 
seront envoyées vers les poids 
forts. 

Le front de remontée du signal 
/STB sera pris en compte par 
la bascule «D» qui reviendra 
de ce fait à son état initial, 
aiguillant à nouveau le /STB 
vers le latch. 

Une précaution indispensable, 
le circuit «R-C» sur la RAZ de 
la bascule «D», est agrémenté 
d'un poussoir de Reset, ce qui 
permet de démarrer à tous les 
coups dans le bon sens et de 
réinitialiser si nécessaire le 
montage. 

L'inconvénient majeur inhé¬ 
rent à ce montage est le ralen- 
tissemnt de la transmission. Il 
faut en effet exécuter deux 
PRINT au lieu d'un et faire en 
outre une petite conversion 
pour fabriquer les caractères. 
L'utilisation du port 8 bits est 
toutefois d'une simplicité 
enfantine: il suffit de rempla¬ 
cer les PRINT #8 par un 
GOSUB appelant la ligne Basic 
suivante: 

PRINT #8, CHR$(INT (b/16) 
+ 64); CHR$ (b MOD 16 + 64) 

RETURN 

où «b» est la valeur à convertir 
qui peut être exprimée en 
hexadécimal ou en décimal. 
On peut bien sûr remplacer 
«b» par n'importe quelle 
variable numérique. Bien 
entendu, il est facile, sur le 
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même principe, d’envoyer des 
caractères Ascii normaux par 
le sous-programme suivant, 
où b$ est un caractère Ascii: 
PRINT #8, CHR$(INT (ASC 
(b$)/16 + 64)); CHR$ (ASC(b$) 
MOD 16 + 64) 

Ceci afin de ne pas débrancher 
le montage. 

Mise au point 

U y a vraiment peu de chose à 
en dire. Si le câblage est réalisé 
convenablement, le circuit 
démarrera du premier coup. 
L’éternel testeur à DEL 
( Micro-Mag n°2, «Les liaisons 
dangereuses ») est encore d'ac¬ 
tualité. 

- A la mise sous tension, véri¬ 
fier la présence d'un 1 en 6 du 
LS74, et d'un 0 en 5. 

- Vérifier l'efficacité du bouton 
Reset en 1 du même boîtier. 

- Envoyer par un PRINT #8, 
un caractère (un seul). 
Contrôler la présence de sa 
partie basse sur les sorties du 
74LS373. 

- Recommencer éventuelle¬ 
ment avec d'autres caractères 
(après un Reset pour chaque 
nouveau caractère). 

Parvenu à ce point, les 
chances sont grandes pour 
que le montage soit prêt à 
vous rendre les services atten¬ 
dus. 

Michel Hugot 
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Mettez les pouces 

LECTEUR 5 POUCES 1/4 POUR CPC 6128 


P ar ailleurs, le prix de la 
disquette 3 pouces est 
encore élevé et ce stan¬ 
dard étant l'exclusivité 
d'Amstrad, ce n'est pas 
demain qu'on pourra s'en pro¬ 
curer par centaines. Enfin, les 
disquettes 5 pouces 1/4 (360 
Ko) coûtent actuellement dans 
le commerce moins de 2,50F, ce 
qui milite sérieusement en leur 
faveur. 

Devant ces constatations, j'ai 
saisi l'opportunité d'un lecteur 
5 pouces 1/4 à prix intéressant 
(environ 600F). Moyennant 
quelques minutes de réflexion 
devant les «docs», un câble fut 
vite confectionné pour le relier 
à mon CPC chéri... Je vous 
livre ici le résultat qui, même 
si le fonctionnement de l'en¬ 
semble n’est pas tout à fait 
conventionnel, m'a apporté 
toute satisfaction. A tel point 
que, sauf exception, je ne me 
sers plus que du lecteur B. 

Un peu de connectique 


Lecteur {yyig. arriére) 33 


■ ■ ■ ■ lecteur 

/ H \ yve mière 

+5v Masse +12v 


CPC-S12B (vue arriére) 


Souvent confronté à une valse incessante 
entre deux disquettes, qui n'a révé 
d'acquérir à moindre frais un second 
lecteur? 


*0 


Le connecteur pour lecteur de 
disquettes supplémentaire du 
CPC semble présenter un bro¬ 
chage standard. Mais ne vous 
y fiez pas, les signaux qui y 
aboutissent ont été inversés (1 
->34, 2 ->33, etc.). Consultez 


plutôt le tableau ci-contre: 
Malheureusement, le signal 
qui devrait permettre de choi¬ 
sir la face de la disquette que 
l'on veut accéder est forcé à 
«0» en permanence par le CPC. 
Or, on ne peut retourner les 
disquettes 5 pouces 1/4 
comme les disquettes 3 
pouces. Rassurez-vous, une 
solution existe, plus rapide 
qu'un retournement. En effet, 
il suffit de ne pas effectuer la 
connection 3 CPC ->32 lecteur 
et de monter un interrupteur 
entre 32 du lecteur et la masse. 
En position ouverte, l'interrup¬ 
teur laissera la broche 32 à «1», 
alors qu'en position fermée, il 
forcera cette broche à «0». Cela 
permet d'accéder les deux 
faces par un simple bascule¬ 
ment. Un conseil: pour éviter 
les hésitations, il est pratique 
de positionner l'interrupteur 
de façon à enregistrer la face 
supérieure quand il est bas¬ 
culé vers le haut. On s'habi¬ 
tue vite à ce genre de petit 
détail confortable... 

Le matériel 

Les connecteurs nécessaires 
sont de type «encartable» 34 
contacts. Ils sont très cou¬ 
rants chez les revendeurs 
spécialisés, de même que le 
connecteur d'alimentation. 
N'importe quel type d'inter¬ 
rupteur convient. 

L'alimentation 


CPC 

Nom du signal 

Lecteur 

1 

Ready 

34 

3 

Side 1 select 

32 

5 

Read data 

30 

7 

Write protect 

28 

9 

TrackO 

26 

11 

Write gâte 

24 

13 

Write data 

22 

15 

Step 

20 

17 

Direction select 

18 

19 

Motor ON 

16 

21 

(non utilisé sur CPC) 

14 

23 

Drive soloct 1 

12 

25 

(non utilisé sur CPC) 

10 

27 

Index 

8 

29 

(non utilisé sur CPC) 

6 

31 

(non utilisé sur CPC) 

4 

33 

(non utilisé sur CPC) 

2 

Bornes 

impaires 

Masse 

paires 

Les signaux précédés du signe «_» sc 

nt actifs bas. 


de fournir 300 m A sur le 5v et 
500 mA sur le 12v (celle propo¬ 
sée dans ce magazine). C’est 
trop, mais cela vous mettra à 
l'abri des parasites induits de 
l'alim. par les commutations 
des moteurs pas à pas et vous 
aurez sans doute d'autres 
petits montages à alimenter en 
même temps; alors... 

Mise en boîte 



veut qu'il dure longtemps. Ce 
travail est très simple à réali¬ 
ser, le châssis du lecteur com¬ 
portant des trous taraudés tout 
à fait adaptés. 

Une tôle d'aluminium dessous, 
avec des pieds caoutchoutés 
pour le confort et un 
«U» en alu décoré 
pour cacher la méca¬ 
nique, fournissant du 
même coup un sup¬ 
port d'intèrrupteur et 
le tour est joué! 

Remarques 
sur le 

fonctionnement 

La gection des lecteurs 
de disquettes du CPC 
correspond à un «sys¬ 
tème minimum», c'est- 
à-dire que ne sont 
générés que les 
signaux indispen¬ 
sables. Nous avons 
déjà vu qu’une seule face était 
explorée, mais par ailleurs, la 
commande Motor ON est 
unique. Cela implique que les 
moteurs des deux lecteurs 
seront sollicités simultané¬ 
ment. Rien de grave, puisque 
seul le lecteur réellement 
concerné sera accédé en lecture 
ou en écriture. Il en va de 
même pour le bras porte tête 
qui bougera au même rythme 
sur les deux lecteurs 
conséquence 
grave. Si le lecteur 
externe est raccordé, 
il est indispensable 
de l’alimenter, sous 
peine de voir le lec¬ 
teur interne tourner 
sans cesse, le rendant 
indisponible. 






























ST-AMIGA 


PROGRAMMATION 

INITIATION 


Les modes d'adressage 

AUTO-FORMEZ-VOUS A LASSEMBLEUR 68000 
(4 e partie) 


P récisons toutefois que 
nous n'en sommes pas 
encore à la description 
détaillée des instructions du 
68000.. Pour l'heure, nous 
allons essayer de mettre en 
oeuvre la programmation 

Assembleur à travers une , , - 

unique instruction, qui, à elle 68000 (registres internes), soit utilisées dans l'immense majo- generale 

seule, réalise la majorité des une mémoire externe à celui-ci rité des cas-, nous passerons les 

transferts de données et (RAM, ROM, PROM, EPROM, autres sous silence (ces articles 

EEROM). RAM et ROM étant se bornent en effet 


Après cette longue attente, douloureuse 
pour les plus assidus d'entre-vous, notre 
initiation se poursuit avec les modes 
d'adressage du 68000. 


pratique du-68000). A noter 
que les transferts sont de type 
I/O (In/Out), c'est-à-dire dans 
les 2 sens, sans risque de 
conflit électrique. 


d'adresses. De plus, les modes 
d'adressage seront les 
mêmes pour toutes les 
instructions. Ci-contre, 
une vue d'ensemble 
des 12 modes d'adres¬ 
sage que nous allons 
étudier. 


e étude 


L'instruction 
MOVE (transfert) 

C'est bien simple, dans 
un programme, la moi¬ 
tié des instructions ren¬ 
contrées sont des 
MOVEs. Cette instruc¬ 
tion n'est certes pas la 
seule à effectuer des 
transferts en mémoire, 
mais le nombre de 
combinaisons diffé¬ 
rentes quelle permet la 
rend la plus importante 
et la plus caractéris¬ 
tique des MC680xx. 

La tâche d'une instruc¬ 
tion MOVE est le trans¬ 
fert de données d'un 
endroit vers un autre. 
Lesdits «endroits» peu¬ 
vent être, soit la 
mémoire interne du 


Type d'adressage Symbole 

; Direct de registre de données '' 

Dn 

I Direct de registres d'adresses 

An 

Absolu long 

xxxx.L 

’! Absolu court 

xxxx.W 

| Immédiat 

#xxxx 

Indirect de registres d'adresses 

(An) 

Indirect de registres d'adresses avec postincrémentatiorr 

(An)+ 

f Indirect de registres d'adresses avec prédécrémentation 

-(An) 

Indirect de registres d'adresses avec déplacement codé sur 16 bits 

d16(An) 

Indirect de registres d'adresses indexés avec déplacement sur 8 bits 

d8(An,Rn) 

Relatif au PC avec déplacement codé sur 16 bits 

d16(PC) 

S Relatif au PC indexé avec déplacement codé sur 8 bits 

d8(PC,Rn) 


Instruction MOVE 


MOVE(+format) opérande 
source, opérande destination . 


Les. opérandes peu¬ 
vent être: un registre 
de donnéés, un 
registre d'adresses, 
une adresse absolue, 
une adsesse relative, 
un déplacement codé 
sur 8 ou 16 bits par 
rapport au PC, une 
valeur immédiate, etc. 
L’instruction MOVE 
consiste en une opéra¬ 
tion de lecture (opé¬ 
rande source) et une 
d'écriture (opérande 
destination). La seule 
chose à retenir ici est 
l'ordre des opérandes 
dans l’instruction. 


Dn : un des 8 registres de données suivants : DO, DI, D2, D3, D4, D5, D6, D7 
An : un des 8 registres d'adresses suivants : AO, Al, A2, A3, A4, A5, A6, A7 
xxxx : donnée codée sur 16 ou 32 bits 
dl 6 : déplacement sur 16 bits 
d8 : déplacement sur 8 bits 
Rn : lire : Dn ou An_ 


Les 12 modes d'adressage 


Adressage direct 
de registres de 
données 

Comme son nom l'in¬ 
dique, ce premier 
mode d'adressage per¬ 
met de transférer 
«directement» le, 
contenu d'un registre 
de données vers un 
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autre sans passer par la 
mémoire externe. 

Formulation générale: 
MQVE.format Dn ( Dn 
Opération effectuée: 

Dn -> Dn 

Soit un exemple concret: 
MOVE.L DO, DI 

Voyez la figure ci-dessous en 
considérant que le registre de 
données DO contient au départ 
la valeur 5 et surtout en ne 
vous demandant pas comment 
on en est arrivé là (si vous 
saviez...) 

Explications: le contenu du 
registre de données DO qui 
représente l'opérande source, 
est transféré dans DI qui offi¬ 
cie pour l'opérande destina¬ 
tion. . 


transférée et le cas échéant 
modifiée. Si le format est B, 
seuls les 8 bits-fles 8 de plus 
faible poids) du registre de 
données seront pris en comp¬ 
te. Si en revanche le format est 
W, ne seront considérés que 
les 16 bits de plus faible poids 
(bit 0-15). Comme d'habitude, 
un exemple appuyé par une 
figuré : MOVE.B DO, DI 



- ; -—-. Long word 

.-» Word 

_ ___ Byte 

DO | 0 0 0 0|0 0[0 5 | l Avant 

* * * * | l'opération 

DI | F F F F [F F [ FF| f + opération 


PO I 0 0 0 o|0 o|o 5 | l Après 

_ 1 l'opération 

DI 1 0 0 0 0|0 0|0 51 1 


Abordons le problème du for¬ 
mat: notez que l'instruction 
MO VE de notre exemple est 
suivie d'un «.L» signifiant 
Long Word, soit 32 bits. De ce 
fait, l'intégralité du contenu de 
DO sera transférée. Nous 
savons en effet depuis l’article 
précédent (les registres 
internes) qu'un registre de 
données contient 32 bits. Nous 
sommes également au fait de 
deux autre formats : 


Remarquez que les 
registres de données DO et 
DI contiennent avarit l'opé¬ 
ration les valeurs suivantes 
(respectivement): $ABC- 
DEF05 et $FFFEFD41. Nous 
verrons, dans un prochain 
mode d'adressage, com¬ 
ment modifier directement 
le contenu de Dn (voir 
Adressage immédiat). 

Déjà, nous percevons la 
puissance du 68000 : les 
instructions sont optimi¬ 
sées au maximum et pour 
chaque cas, on trouve celle 
correspondante. En outre, du 
point de vue de la place 
mémoire, le gain se révèle 
énorme même pour un 
nombre restreint d'instruc¬ 
tions. Reste un problème: leur 
syntaxe . Dorénavant, «Dn» 
signifiera pour vous un des 8 
registres de données (D0-D7), 
quel qu'il soit. D'autre part, la 
syntaxe correcte avec ce mode 


- B : Byte (8 bits) 

- W : Word (16 bits) 

Soit au total 3 formats diffé¬ 
rents, d'ailleurs valables pour 
tous les autres modes d’adres¬ 
sage. A dire vrai, leur présen¬ 
ce facilite considérablement la 
tâche du programmeur, car ils 
indiquent la partie du registre 
de données qui devra être 


d'adressage est : 

MOVE. (c-point) format (B, W, 
L) [espace] Dri, (virgule) Dn 

Soit d'une façon plus lisible 
MOVE.f Dn, Dn, à l'exclusion 
de tout autre caractère. Si le 
format utilisé est W, ce dernier 
peut être omis lors de la saisie 
d'un prg. assembleur (surtout 
ne vous en privez pas!), ainsi. 


MOVE.W DO, D5 devient 
MOVE DO, D5. ‘ 

Enfin, le manque d'intérêt 
d'une instruction du genre : 
MOVE.L DO, DO est évident. 
Bien que correcte elle ne sert à 
rien. 

Adressage direct de 
registres d'adresses 

Nous avons vu comment 
adresser un registre de don¬ 
nées, occupons-nous mainte¬ 
nant des registres d'adresses. 

Formulation Générale: 
MOVEAi An, An 
Opération effectuée: 

An -> An 

Observez la lettre A accolée au 
MOVE. Cette dénomination 
est obligatoire lorsque l'opé¬ 
rande destination est un 
registre d'adresses. Sachez 
néanmoins que le code opéra¬ 
toire en langage machine 
résultant de MOVEA.f An, An 
est strictement identique à 
celui généré par MOVE.f An, 
An. Les programmeurs qui 
ont réalisé les moniteurs 
assembleurs sur nos 16 bits 
s'en sont rendu compte, c'est 
pourquoi la plupart d'entre- 
eux négligent cet ajout. Il en 
résulte qu’on peut taper 
MOVE à la place de MOVEA. 
Lors du listage correspondant 
(désassemblage), on obtiendra 
soit MOVE, soit MOVEA. 
Soyez rassurés, il n'y a aucune 
différence. Certains assem¬ 
bleurs sont déjà rompus à 
cette méthode; ainsi le K-Seka 
n'accepte pas les MOVEÀ 
mais seulement les MOVE. 
Dans cette initiation, nous uti¬ 
liserons d'abord MOVEA, 
mais cela ne durera pas. A 
mon sens, cette particularité 
ne fait qu'allourdir la difficulté 
de compréhension. 

Il y a filialement très peu de 
nouveautés par rapport au 
mode d’adressage précédent. 
Le contenu d'un registre 
d'adresses est transféré dans 
un autre, «A» signifiant l'un 
des 8 registres d'adresse, que 


nous avons passés en revue 
lors d'un précédent article 
(A0-A7). On peut donc, à prio¬ 
ri, manipuler le registre de la 
pile, soit A7. Avec une instruc¬ 
tion du genre MOVEA.L A7, 
AO on récupère la pile puis on 
stocke son pointeur dans AO. 
Si en revanche on tape 
MOVEA.L AO, A7, cela signi¬ 
fiera que le pointeur de pile va 
changer de valeur et contenir 
ce que contient AO. Il faut par 
conséquent être très prudent 
avec cette instruction, car le SP 
(Stack Pointer) modifié lors de 
l'exécution d’un sous-pro¬ 
gramme, rend impossible le 
retour au programme princi¬ 
pal, l'adresse de retour n'étant 
plus pointée par SP. Pour l'ins¬ 
tant, le peu que rîbus savons 
ne nous permet pas d'écrire un 
programme d’exemple 
convaincant. A propos de la 
pile, nous vous en offrirons un 
bientôt. 

Revenons à nos moutons, 
voici un exemple : MOVEA.L 
AO, Al sachant que, avant 
l'opération, AO valait 
$FC000000 et Al $12345678. 



Venons-en aux formats. On ne 
peut accéder à un registre 
d'adresses avec un format du 
type B. Nous sommes donc 
obligés de transférer soit 16 
bits soit 32 bits, cette dernière 
variante utilisant l'intégralité 
d’un registre d'adresses. 

Occupons-nous du format W 
(16 bits) en faisant appel aux 
nombres signés. En effet, le bit 
15 du registre d'adresse source 
déterminera le contenu des 16. 
bits de plus fort poids du 
registre destination. Il y donc 
2 possibilités, voyons-les en 
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détails à l'aide d'exemples : 

* 1er cas 

A0=$12345678 (le bit 15 est à 

0) 

A1=$89ABCDEF 
MOVEA.W AO, Al 


AO 1 1 2 3 4j 5 6 7 8 | l 
Al [6 9 ABlC DË~f] / 

AO j 1 2 3 4)5 6 7 8[ 


Al [ 0 O O o| 5 6 7~F| 


• 2e cas 

A0=$1234F678 (le bit 15 est à 

1 ) 

Al =$89 ABCDEF 
MOVEA.W AO, Al 


AO j 1 2 3 4 1 F 6 7 8 \ ' 


Al | 8 9 A B|C P E F[ 

m\ 
Ml 


AO | 1 2 3 41 F~6~ 
Al | F F F F| F 6 


demandé par le programmeur, 
c'est-à-dire en-utilisant l'ins¬ 
truction MOVEQ. 11 n'est pas 
possible d'obtenir une exten¬ 
sion de signe avec un adressa¬ 
ge direct de registres de don¬ 
nées. Cependant, lors d’un 
adressage direct mixte du 
genre : MOVEA.W DO, AO, il y 
a une extension. 

Adressage direct mixte 

Il ne s'agit pas à proprement 
parler d'un nouveau mode 
d'adressage, puiqu'il intègre 
les deux que nous venons 
d'étudier. En effet, celui-ci per¬ 
met de transférer le contenu 
d'un registre de données vers 
un registre d'adresses, et vice- 
versa bien évidemment. Les 
particularités dues aux for¬ 
mats et aux extensions sont 
telles qu'un tableau est néces¬ 
saire. 


reportant au manuel d'utilisa¬ 
tion du logiciel (n'espérez pas 
trouver dans ces articles, la 
documentation et les diverses 
explications nécessaires à 
l'emploi du K-Seka, Profimat, 
Devpac, etc. Pour les utiliser, 
achetez . l'original! 

L'investissement de départ 
sera largement récupéré 
quand vous serez à même de 
produire vos propres pro¬ 
grammes). Tapez le program¬ 
me suivant : 


direct de registres d'adresses 
ou encore d’un adressage 
direct mixte. En premier lieu, 
il n'y a rien à craindre, car 
l'éditeur assembleur se charge 
de vous le faire remarquer en 
stoppant l'assemblage en 
cours pour vous permettre de 
réparer la bévue. En revanche, 
on peut "forcer" un MOVE.B 
en tapant directement les 
codes opératoires correspon¬ 
dants directement dans la 
RAM. Après lancement du 


start: 

; Label de départ 

MOVE.L #$12345678, DO 

; DO =$12345678 

MOVEA.L #$89ABCDEF, AO 

; A0=$89 ABCDEF - 

MOVE.W A0, DO 

; A0 -> DO (sur 16 bits) 

RTS 

; retour à l'éditeur. 


Assemblez le programme et 
lancez-le. En retour, l'éditeur 
vous fournira la valeur de cha¬ 
cun des registres du 68000, et 
notamment, dans notre pro¬ 


Instruction Opération 

MOVEA.B Dn, An Impossible! Format B interdit. 

MOVEA.W Dn, An Extension de signe 32 bits avant transfert. 

MOVEA.L Dn, An Transfert des 32 bits, classique. 

MOVE.B An, Dri Impossible! Format B interdit. 

MOVE.W An, Dn Transfert des 16 bits de poids faible, pas d'extension. 
MOVE.L An, Dn Transfert 32 bits classique. 


Résumons-donc la situation : 

- bit 15 de AO à 1 -> bits 16-31 
de Al à 1 

- bit 15 de AO à 0 -> bits 16-31 
de Al à 0 

Nous avons procédé à ce que 
l'on appelle une extension de 
signe 32 bits, en amenant à 32 
bits un nombre de «n» bits. 
Dans notre cas, n signifie 16 
mais nous verrons une autre 
variante prochainement avec 
n=8 (Dn). 

• Règle pratique: les exten¬ 
sions de signes ne sont effec¬ 
tuées qu'avec des registres 
d'adresses et donc seulement 
lorsque le format est le mot 
(16 bits). D'autre part, seul 
l'opérande destination est 
affecté. Il est possible de réali¬ 
ser une extension de signe 
avec un registre de données 
mais cela ne se produit que 
lorsque c'est implicitement 


Bon, passons à un exemple : 
MOVEA.W DO, AO 


DO | 5 4 5 4|5 4|5 4j 
AO | 0 1 0 110 110 1 j 

D0 | 5 4 5 4|5 4|5 A\ \ 
AO | 0 0 0 0|5 4[5 4l j 


Le moniteur 
assembleur 

Il est temps de lancer votre 
moniteur préféré (de préféren¬ 
ce ceux cités dans le 1er 
article). Je vais vous indiquer 
la marche à suivre pour tester 
vous même des MOVEs, ceci à 
l’aide d'un mini-programme. 
Passez en mode édition d'un 
programme source en vous 


gramme de test, la nouvelle 
valeur de DO (S1234CDEF). 
Pas de précisions supplémen¬ 
taires sur ce programme qui 
utilise l'adressage immédiat et 
est suffisamment clair et 
concis pour vous permettre de 
tester vos connaissances fraî¬ 
chement acquises. Amusez- 
vous avec, changez les MOVE, 
testez, etc. Il n'y a pas de 
meilleur moyen de progresser. 

• A propos de la syntaxe: Le 
,«;» correspond au début d'un 
commentaire (équivalent du 
REM Basic). On peut mettre 
autant d'espaces que l’on veut 
entre l'instruction même et 
l'opérande source et entre 
l'ppérande destination et 
l'éventuel commentaire. 

A titre de conclusion, une 
remarque intéressante (enfin!): 
le format B est interdit lors de 
l'utilisation de l'adressage 


programme contenant ladite 
instruction et lorsque le PC 
atteint notre MOVE, le 68000 
déclenche une exception 
«Instruction Illégale». C'est-à- 
dire qu'un pro¬ 
gramme va être 
lancé sans même 
notre autorisation. 
De plus, celui-ci 
aura pour but 
principal de nous 
rappeler qu’il y a 
un bug: 

La conséquence de ceci est que 
la machine sera ensuite plan¬ 
tée et relancée, ce qui se tra¬ 
duit dans notre jargon par une 
activation de la broche RESET 
du 68000. Je ne résiste pas au 
plaisir de vous révéler que le 
lancement des exceptions 
(sortes d'interruptions) est 
vectorisé. Il est par conséquent 
tout à fait possible de tout 
détourner et donc de prendre 
le contrôle total de notre 
machine (cela me semble nor¬ 
mal et justifié!). Ce principe 
est utilisé pour les protections 
des jeux à un niveau supé¬ 
rieur, bien sûr, mais chuuuut!, 
l'A.P.P. nous surveille!.. 

Bientôt la suite de notre gran- 


Stéphane Rodriguez 










































SX 


PROGRAMMATION 

Hooou, les cornes! 

PACO 


C et astucieux Pac-Man en 
GFA réclame plus que 
tout autre réflexe et stra¬ 
tégie. Les fantômes rapides 
amme l'éclair ne laissent en 
effet aucune chance au héros. 


Seul espoir de Paco, affublé d'une paire 
de cornes à la suite d'un sortilège, 
engloutir les perles d'énergie du temple 
de là beauté. 



s'il n'a pris la peine d'étudier 
préalablemeht (et. rapidement) 
le décor afin dé déterminer le 
meilleur trajet. Dix tableaux 
sont ainsi offerts à la perspica¬ 
cité du joueur. 

• Les pastilles bleues stoppent 
le9 fantômes pendant un laps 
de temps. 

• Les manœuvres ^e direc¬ 
tions doivent être rapides et 
précises. 

» La sélection du joystick se 
fait par appui sur Fife et celle 
du clavier (touches direction¬ 
nelles + barre d'espacement) 
par la barre d'espacement. 

• L'abandon, selon la sélection 
choisie, s'obtient par Fire ou la 
barre d'espacement. 

Ne soyez pas surpris de l'ap¬ 
parence de ce listing faisant 
appel au vérificateur GFA 
V.1.0 (reportez-vous à son 
mode d'emploi). Les lecteurs 
infaillibles peuvent cependant 
taper normalement les lignes 
sans tenir compte des numéros 
et des sommes de contrôle. 

Luc, Hervé & Claude 
Guillaume 


1 

• ************************* 


1355 

2 

■ ** 

** 

ICA 

3 

' * PACO 

* 

148 

4 

■ * 

* 

176 

5 

' * Luc, Eerve and Claude 

* 

172 

6 

' * Guillaume 

* 

IB8 

7 

' » BLACK SYSTEM 1989 

* 

IDF 

8 

• * * 

** 

ICA 

9 

■ *************************** 

130 

10 



127 

11 

début : 


1CD 

12 

RESERVE 65535 


IC9 

13 

ON BREAK CONT 


jC4 


37 















14 VOID XBIOS(5,L:-1,L: -1,0) 170 

15 FOR t=0 TO 15 ICE ' 

16 SETCOLOR t,0 IDF 

17 NEXT t I8B 

18 IF PEEK(150000)=96 IC0 

19 GOTO début1 14F 

20 ENDIF 132 

21 RESTORE routine 19F 

22 @pokage(150000,84) 111 

23 RESTORE dessins I6D 

24 @pokage(480000,784) 150 

25 début1 : I2E 

26 SPOKE &H484.14 120 

27 HIDEM !3E 

28 RESTORE sonl ' !F0 

29 FOR t=l TO 17 IEF 

30 READ v IDD 

31 sl$=sl$+CHR$(v) 121 

32 NEXT t I8B 

33 RESTORE son2 IFC 

34 FOR t=l TO 17 IEF 

35 READ v IDD 

36 s2$=s2$+CHR$(v) 12D 

37 NEXT t 18B 

38 @mess(60,15,14,15, "Claude Guilla 

urne présents") IF2 

39 @mess(51,155,14,15,"Program .... 

.. Luc Guillaume") !0C 

40 @mess(51.175,14.15."Graphics ... 

Herve Guillaume") I1F 

41 @mess(99,195,14,15,"BLACK SYSTEM 

1989") IF3 

42 @mess(67,135,3,11,"Press FIRE to 

start game") 116 

43 RESTORE près IA8 

44 ad=XBIOS(2)+4336 IFD 

45 FOR y=l TO 6 178 

4.6 esp=0 14E 

47 FOR x=l TO 16 - IC5 . 

48 READ b I5A 

49 IF b=l 157 

50 @affsp(ad+esp,480000,8,14) 113 

51 ENDIF 10D 

52 IF b=2 161 

53 @affsp(ad+esp, 48.0336,8,14) 142 

54 ENDIF |0D 

55 IF b=3 I6B 

56 @affsp(ad+esp,480448,8,14) IA7 

57 ENDIF |0D 

58 ADD esp,8 IC6 

59 NEXT x IB3 

60 ADD ad,2400 185 

61 NEXT y IA9 

62 RESTORE coul 171 

63 FOR t=0 TO 15 ICE 

64 READ coul 165 

6 5 SETCOLOR t,coul IA9 

66 NEXT t I8B 

67 fire=XBIOS(34)+50 191 

68 clavier=XBIOS(34)+109 IB1 

69 testfire: 133 

70 IF PEEK(fire)=249 I7C 

71 @seljoy 113 

72 GOTO start IA5 


ENDIF 132 

IF PEEK(clavier)=57 125 

@selkeys I49 

GOTO start IA5 

ENDIF 132 

GOTO testfire IE6 

start: IEB 

GRAPHMODE 1 I3E 

DIM br(18,10),xx(2),yy(2),fan(2) I0E 
RESTORE tabl IE9 

sc=0 IB2 

ntab=0 157 

vie=9 « !8C 

startl: I4C 

@scroll IC4 

WAVE 0,0 169 

ch=0 ! AC 

DEFTEXT 15,0,0,6 172 

GOSDB tableaux !8A 

GOSUB score I34 

x=2 189 

y=2 I8A 

pac=XBIOS(2)+4016 *- 124 

clavier: 196 

PADSE 2 199 

IF PEEKCadfire)=fi 117 

GOTO abort 1FF 

ENDIF 132 

IF PEEK(adkeys)=dr IBD 

@droite 197 

ENDIF 132 

IF PEEK(adkeys)=ga IBE 

@gauche IE8 

ENDIF 132 

IF PEEK(adkeys)=ha ICF 

@haut 194 

ENDIF 132 

IF PEEK(adkeys)=ba 169 

@bas I43 

ENDIF I32 

@affsp(pac,480112,8,14) 189 

FOR num=l TO 2 ID2 

@depfany IBC 

@depfanx IB2 

@affsp(fan(num),480672,8,14) 125 

NEXT num I04 

IF ch=l 193 

GOTO changement I8C 

ENDIF ' 132 

IF stop<>0 IE5 

GOTO clavierl IC4 

ENDIF 132 

IF xx(l)=x AND yy(l)=y 186 

GOTO mort 197 

ENDIF I32 

IF xx(2)=x AND yy(2)=y IA0 

GOTO mort 197 

ENDIF 132 

clavierl: 159 

IF stop<>0 IE5 

SÜB stop,1 IFD 

ENDIF I32 

GOTO clavier I03 

mort: 197 


73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

, 126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

'136 



PROGRAMMATION 


137 

@son(s2$) 

! 9B 

201 

ENDIF 

160 

138 

SUB vie,1 

IEA 

202 

depfanyl: 

I7D 

139 

IF vie=-l 

I4B 

203 

RETURN 

I9E 

140 

GOTO abort 

IFF 

204 

PROCEDURE fandr 

125 

141 

ENDIF 

132 

205 

IF br(xx(num)+l,yy(num))=1 

1B1 

142 

@vie 

IFE 

206 

GOTO fandrl 

IEB 

143 

PAUSE 50. 

12F 

207 

ENDIF 

160 

144 

IF ntab=l 

ICD 

208 

@affel(fan(num).490000,8,14) 

162 

145 

RESTORE tabl 

! A3 

209 

xx(num)=xx(num)+1 

164 

146 

ENDIF 

132 

210 

ADD fan(num),8 

IA6 

147 

IF ntab=2 

ID6 

211 

fandrl: 

I4B 

148 

RESTORE tab2 

1B1 

212 

RETURN 

I9E 

149 

ENDIF 

132 

213 

PROCEDURE fanga 

150 

150 

IF ntab=3 

! DF 

214 

IF br(xx(num)-l,yy(num))=l 

JDI 

151 

RESTORE tab3 

!BF 

215 

GOTO fangal 

124 

152 

ENDIF 

132 

216 

ENDIF 

160 

153 

IF ntab=4 

IE8 

217 

@affel(fan(num),490000,8,14) 

162 

154 

RESTORE tab4 

ICD 

218 

xx(num)=xx(num ) 7 1 

188 

155 

ENDIF 

132 

219 

SUB fan(num),8 

117 

156 

IF ntab=5 

IF1 

220 

fangal: 

IE6 

157 

RESTORE tab5 

!DB 

221 

RETURN 

I9E 

158 

ENDIF 

132 

222 

PROCEDURE fanha v. 

I5E 

159 

IF ntab=6 

IFA 

223 

IF br(xx(num),yy(num)-l)=l 

143 

160 

RESTORE tab6 

IE9 

224 

GOTO fanhal 

131 

161 

ENDIF 

132 

225 

ENDIF 

160 

162 

IF ntab=7 

103 

226 

@affel(fan(num),490000,8,14)- 

162 

163 

RESTORE tab7 

IF7 

227 

yy(num)=yy(num)-l 

IA6 

164 

ENDIF 

132 

228 

SUB fan(num),2400 

I1E 

165 

IF ntab-8 

I0C 

229 

fanhal: 


166 

RESTORE tab8 

105 

230 

RETURN 

I9E 

167 

ENDIF 

132 

231 

PROCEDURE fanba 

I0A 

168 

IF ntab=9 

115 

232 

IF br(xx(num),yy(num)+l>=1 

113 

169 

RESTORE tab9 

113 

233 

GOTO fanbal 

1E3 

170 

ENDIF 

132 

234 

ENDIF 

160 

171 

IF ntab=10 

IAE 

235 

@affel(fan(num),490000,8,14) 

162 

172 

RESTORE tabl0 

174 

236 

yy(num)-yy(num)+l 

182 

173 

ENDIF 

132 

237 

ADD fan(num),2400 

1 AD 

174 

SUB ntab.l 

1 56 

238 

fanbal : 

IC8 

175 

GOTO startl 

150 

239 

RETURN 

I9E 

176 

PROCEDURE depfanx 

150 

240 

PROCEDURE pokage(ad,taille) 

181 

177 

IF stop>l 

IC8 

241 

FOR 1=1 TO taille/14 

! A3 

178 

GOTO depfanx1 

I9D 

242 

FOR t=0 TO 13 STEP 2 

ICC 

179 

ENDIF 

160 

243 

READ val$ 

IDB 

180 

IF xx(nura)>x 

117 

244 

DPOKE ad,VAL(”&"+val$) 

193 

181 

@fanga 

I6C 

245 

ad=ad+2 

139 

182 

GOTO depfanx1 

I9D 

246 

NEXT t 

I1B 

183 

ENDIF 

160 

247 

NEXT 1 

153 

184 

IF xx(num)<x 

IFD 

248 

RETURN 

I9E 

185 

@fandr 

IFB 

249 

abort: 

IDF 

186 

GOTO depfanxl 

I9D 

250 @affsp(XBIOS(2)+11256,481000.48, 


ENDIF 

160 


44) 


188 

depfanxl: 

174 

251 

@mess(124,97,14,15,"GAME OVER") 


189 

RETURN 

I9E 

252 

@son(s2$) 


190 PROCEDURE depfany 

161 

253 

PAUSE 250 

IF3 

191 

IF stop>l 

IC8 

254 

SOUND 0,0,0,0 


192 

GOTO depfany1 

1 AD 

‘255 

CLEAR 


193 

ENDIF 

160 

256 

@scroll 

IC4 

194 

IF yy(num)>y 

132 

257 

GOTO début 


195 

@fanha 

175 

258 

gagne : 

170 


GOTO depfany! 

1 AD 

259 @affsp(XBIOS(2)+11248.481000.64 . 



160 


44) 


199 

IF yy(num)<y 
@fanba 

118 

13F 

26 0 

@mess(100,97,14,15,"Congratulati 
ons" ) 


200 

GOTO depfany1 

1 AD 

261 

@son(s2$) / 

I9B 





262 

PAUSE 250 

!F3 

326 

@affspCpac,490000,8,14) 

1 FC 

263 

SOUND 0,0,0,0 

!EF 

327 

x=x+l 

172 

264 

CLEAR 

! 4B 

328 

ADD pac, 8 

103 

265 

@scroll 

iC4 

329 

droitel: 

I4E 

266 

GOTO début 

194 

330 

RETURN 

I9E 

267 

changement : 

! 80 

331 

PROCEDURE gauche 

138 

268 

ch=0 

I AC 

332 

IF x=l 

IFB 

269 

PAUSE 10 

113 

333 

@af fspCpac,490000,8,14) 

123 

270 

FOR t=50 TO 200 STEP 10 

I4B 

334 

x=18 

122 

271 

. SOUND 1,14,#t,1 

!EC 

335 

y=2 

I6D 

272 

SOUND 0,0,0,0 

I2B 

336 

pac=XBIOS(2)+4144 

147 

273 

sc=sc+879 

! CF 

337 

@testbord 

IB6 

274 

©score 

ICI 

338 

GOTO gauchel 

ICD 

275 

NEXT t 

I8B 

339 

ENDIF 

160 

276 

PAUSE 25 

142 

340 

IF br(x-l,y)=l 

ID5 

277 

IF ntab=10 

IAE 

341 

GOTO gauchel 

ICD 

278 

GOTO gagne 

IF6 

342 

ENDIF 

160 

279 

ENDIF 

132 

343 

IF br(x-l,y)=0 

IC5 

280 

@scroll 

! C4 

344 

br(x-l,y)=5 

14F 

281 

@tableaux 

IDC 

345 

@points 

ID0 

282 

x=2 

189 

346 

ENDIF 

160 

283 

y=2 

I8A 

347 

IF brCx-1,y)=2 

IE5 

.284 

pac=XBIOS(2)+4016 

124 

348 

br(x-l,y)=5 

14F 

285 

GOTO clavier 

103 

349 

sc=sc+500 

1 3E 

286 

PROCEDURE selkeys 

I9E 

350 

stop=35 

132 

287 

f i=57 

1 2B 

351 

©points 

1D0 

288 

dr=77 

1 55 

352 

ENDIF 

160 

289 

ga=75 

I0C 

353 

@affspCpac,490000,8,14) 

IFC 

290 

ha=72 

IFA 

354 

x=x-1 

I7E 

291 

ba=80 

IE0 

355 

SUB pac,8 

173 

292 

adfire=XBIOS(34)+109 

IFE 

356 

gauchel: 

IB9 

293 

adkeys=XBIOS(34)+109 

.1A0 

357 

RETURN 

I9E 

294 

RETURN 

I9E 

358 

PROCEDURE haut 

IC7 

295 

PROCEDURE seljoy 

182 

359 

IF br(x,y-l)=l 

147 

296 

f1=249 

ICD 

360 

GOTO hautl 

IB5 

297 

dr=8 

ID9 

361 

ENDIF 

160 

298 

ga=4 

186 

362 

IF br(x,y-l)=0 

137 

299 

ha=l 

177 

363 

br(x,y-l)=5 

ICI 

300 

ba=2 

! 6B 

364 

@points 

ID0 

301 

adfire=XBIOS(34)+50 

167 

365 

ENDIF 

160 

302 

adkeys=XBIOS(34)+61 

132 

366 

IF br(x,y-l)=2 

1 57 

303 

RETURN 

I9E 

367 

br(x,y-l).= 5 

ICI 

304 

PROCEDURE droite 

I9D 

368 

sc=sc+500 

I3E 

305 

IF x=18 

' IF4 

369 

stop=35 

132 

306 

@affspCpac,490000,8,14) 

123 

370 

@points 

ID0 

307 

X=1 

161 

371 

ENDIF 

160 

308 

y=2 

! 6D 

372 

@affspCpac,490000,8,14) 

IFC 

309 

pac=XBIOS(2)+4008 

138 

373 

y=y-l 

186 

310 

@testbord 

IB6 

374 

SUB pac,2400 

IB4 

311 

GOTO droitel 

118 

375 

haut1 : 

I4A 

312 

ENDIF 

160 

376 

RETURN 

I9E 

313 

IF br(x+l,y)=l 

ICI 

377 

PROCEDURE bas 

112 

314 

GOTO droitel 

118 

378 

IF br(x,y+l)=l 

12F 

315 

ENDIF 

160 

379 

GOTO bas1 

I4B 

316 

IF br(x+l,y)=0 

! B1 

380 

ENDIF 

160 

317 

br(x+l,y)=5 

. 13D 

381 

IF br(x,y+l)=0 

11F 

318 

@points 

ID0 

382 

br(x,y+l)=5 

1 AB 

319 

ENDIF 

160 

383 

@points 

ID0 

320 

IF brCx+1,y)=2 

1 DI 

384 

ENDIF 

160 

321 

br(x+l,y)=5 

I3D 

385 

IF br(x,y+l)=2 

13F 

322 

sc=sc+500 

1 3E 

386 

br(x,y+l)=5 

1 AB 

323 

stop=35 

132 

387 

sc=sc+500 

I3E 

324 

@points 

ID0 

388 

stop=35 

132 

325 

ENDIF 

160 

389 

@points 

ID0 


40 



ST 
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390 

ENDÏF 

160 

435 

LPOKE 150030,ae 

I6E 

391 

@affsp(pac,490000.8,14) 

IFC 

436 

LPOKE 150036,as 

IB0 

392 

y=y+l 

1 7A 

437 

POEE 150043,1a 

IB7 

393 

ADD pac,2400 

144 

438 

POSE 150047,ha-1 

120 

394 

basl : 

I0A 

439- 

affiche=l50000 

IF8 

395 

RETURN 

I9E 

440 

CALL affiche 

IEC 

396 

PROCEDURE testbord 

1 AD 

441 

RETURN 

I9E' 

397 

IF br(x,y)=0 

170 

442 

PROCEDURE scroll 

101 

398 

br(x,y)=5 

I4E 

443 

FOR t=l TO 25 

IA8 

399 

@points 

ID0 

444 

PRINT CHR$(10) 

I4B 

400 

ENDIF 

160 

445 

NEXT t 

193 

401 

RETURN 

I9E 

446 

RETURN 

! 9E 

402 Procedure points 

ID5 

447 

PROCEDURE mess(ex,cy,cl,c2,a$) 

101 

403 

@son(sl$) 

148 

448 

GRAPHMODE 1 

. 170 

404 

sc=sc+176 

16F 

449 

DEFTEXT cl,0,0,13 

IA2 

405 

@score 

ICI 

450 

TEXT cx,cy,a$ 

IA8 

406 

past=past-l 

IDD 

451 

. GRAPHMODE 2 

I7D 




452 

DEFTEXT c 2.0,0,13 

1 AE 



453 TEXT cx+1,cy+1,a$ 

454 RETURN 

455 PROCEDURE tableaux 
past=0 
stop=0 
INC ntab 

adecr=XBIOS(2)+1608 
FOR y=l TO 10 
esp-0 

FOR x=l TO 18 
RE AD b 
IF b=l 
adsp=4 
nb=l 
ENDIF 
IF b=0 


IDE 
! 9E 
119 
! 5C 

185 
169 

186 
172 
199 
137 
!F7 
IB6 
I6A 
125 
I3A 
I AA 





470 

* nb=0 

119 

407 

IF past=0 

160 

471 

INC past 

185 

408 

ch=l 

ID7 

472 

ENDIF 

I3A 

409 

ENDIF 

160 

473 

IF b=2 

IC2 

410 RETURN 

I9E 

474 

adsp=480336 

145 

411 

PROCEDURE son(a$) 

110 

475 

nb-1 

125 

412 

WAVE 0,0 

189 

476 

ENDIF 

I3A 

413 

VOID XBIOSC 32,L:VARPTR(a$)) 

I6E 

477 

IF b=3 

ICE 

414 

RETURN 

I9E 

478 

adsp=480448 

I8E 

415 

PROCEDURE vie 

198 

479 

nb=l 

125 

416 

. TEXT 172,170, ,, LIVES" 

I7D 

480 

ENDIF 

I3A 

417 

TEXT 220,170,vie 

!E4 

481 

IF b=4 

IDA 

418 

RETURN 

I9E 

482 

adsp=480560 

I2B 

419 

PROCEDURE score 

IDA 

483 

nb=2 

131 

420 

TEXT 40,170."SCORE " 

ID8 

484 

INC past 

185 

421 

TEXT 88.170.se 

IF2 

485 

ENDIF 

I3A 

422 

RETURN 

I9E 

486 

IF b=8 

I0A 

423 

PROCEDURE affel(ae.as.la.ha) 

IFC 

487 

adsp=480112 

IB3 

424 

re=br(xx(num),yy(num)) 

1 AA 

488 

nb=5 

155 

425 

IF re=0 

101 

489 

ENDIF 

I3A 

426 

as=480224 

126 

490 

IF b=9 

116 

427 

ENDIF 

160 

491 

adsp=490000 

179 

428 

IF re=2 

112 

492 

nb=5 

155 

429 

as=480560 

143 

493 

ENDIF 

I3A 

430 

ENDIF 

160 

494 

@affsp(adecr+esp.adsp,8,14 


431 

@affsp(ae,as.la.ha) 

114 


) 

IDC 

432 

RETURN 

I9E 

495 

esp=esp+8 

165 

433 

PROCEDURE affsp(ae.as.la.ha) 

IFC 

496 

SOUND 1,14.#esp+(y* 5 0),1 

161 

434 

la=(la/4)-l 

I5B 

497 

SOUND 0.0,0.0 

121 


41 











498 

br(x,y)=nb 


18F 


. 0,0,0,1 

IEE 

499 

NEXT x 


143 

545 

DATA 1,0,0,0,0,0,0,0.0.0,4,0,0,0 


500 

ADD adecr,2400 


144 


.0,0,0,1 

IF6 

501 

NEXT y 


!BB 

546 

DATA 1,1,1.1,1,1,1,1,1,1,1,1,1,1 


502 

u=XBIOS(2)+25608 


191 


,1,1,1,1 

!FE 

503 

@affsp(u,480448,8,14) 


166 

547 

tab2 : 

I4A 

504 

@affsp(u+136,480336,8,14] 


!E1 

548 

DATA 2,1,1,1,1,1,1,1,1,1,1,1,1,1 


505 

@affsp(u+112,480448,8,14; 


!E0 


,9,1,1,3 

164 

506 

@affsp(u+64.480336,8,14) 


!B3 

549 

DATA 0,8,0,0,0.0,4.0,0,0.0.0,0,1 


507 

ADD u.2400 


1FE ‘ 


.9,1,4,0 

!F6 

508 

FOR t=l TO 18 


IC7 

550 

DATA 2,1,1,1.1,1.3,1.1,1,1,1,0,1 


509 

@affsp(u,480000,8,14) 


109 


,9,1,0,3 

144 

510 

ADD u,8 


I3E 

551 

DATA 9,9,9,9,9,9.9,9.9,9,9.1,0,1 


511 

NEXT t 


193 


,9,1,1,1 

170 

512 

TEXT 264,170,ntab 


I6A 

552 

DATA ,1,1,1,1,1,1,2,1,1,1,1,1,0,1 


513 

@score 


ICI 


.9,9,9,9 

192 

514 

@vie 


167 

553 

DATA 1,4,0,0,0,0,0.0,0,0,0,0,0.1 


.515 

xx(1)=17 


184 


,9,9,9,9 

IDA 

516 

yy(l)=8 


I A3 

554 

DATA 1,0,1,1,1,1,1.1,1,1,1,1,1,1 


517 

fan(l)=XBIOS(2)+18536 


113 


.1.1,1,1 

IF6 

518 

xx(2)=2 


I6C 

555 

DATA 1.0.0,0,0,0.0,0,4,1,0.0,0,0 


519 

yy(2)=8 


IA9 


.0,0,0,1 

IFE 

520 

fan(2)=XBIOS(2)+18416 


ID9 

556 

DATA 1,4,0,0,1.0,0.0.0,0,4,1,0,0 


521 

RETURN 


I9E 


,0,0,4,1 

ID8 

522 

sonl : 


185 

557 

DATA 1,1,1,1,1.1.1.1,1,1,1,1,1,1 


523 

DATA 0,25,1,1,7.254,8,16,1: 

.0,12 



.1.1,1.1 

IFE 


,16,13,9,130,10,255,0 


1 31 

558 

tab3 : 

I4É 

524 

son2 : 


189 

559 

DATA 2.1,1,1,1,1,9.9,9,9,9,9,1.1 


525 

DATA 0,255,20,80,7,1,8,16,11,0,1 



,1.1.1,3 

1 A4 


2,16,13,9,12,80,255,0 


136 

560 

DATA 0.8.0,4,0,1,9,9.9,9,9,9,1,0 


526 

coul: 


176 


, 4,0,0,0 

160 

527 

DATA &000,&566,&511,&004,&002,&0 


561 

DATA 2.1,1,1.0,1.9,1,1,1,1,9,1,0 



06,&117,&233 


IBF 


,1.1.1,3 

196 

528 

DATA &122,&551,&622,&344,&773,&7 


562 

DATA 9,9,9,1,0,1,9,1,4,0,1,9,1,0 



77.&127.&200 


112 


.1,9,9,9 

! BA 

529 

près : 


175 

563 

DATA 9,9,9.1,0,1,9,1,0,0,1,9,1,0 


530 

DATA 2.1,1,1.0.1.1,3,0,1,1 

1,0,2 



.1.9,9,9 

162 


,1.1 


108 

564 

DATA T,1,1,1,0,1,1,1,0,0,1,1,1,0 


531 

DATA 0,1,0,1,0,1,0,1,0,1,0,3,0,1 



.1,3.1,1 

IEA 


,0,1 


194 

565 

DATA 1,4,0,0,0.0,0,0,0,0,0.4,0,0 


532 

DATA 0,1,0,1,0,1,0,1,0,1,0 




,0,0.4.1 

IB6 


.0.3 


188 

566 

DATA 1,0,1,1,0,1,1,0,0,0,0,1,1,0 


533 

DATA 2,1,1,3,0,1,1,1,0,1,0 




,1,1,0.1 

! 46 


,0,1 


! 80 

567 

DATA 1.0,0,0,0.0,4,0,0,0,0,0,0,0 


534 

DATA 0,1,0,0,0,1,0,1,0,1,0, 




,0,0,0,1 

ID6 


,0.1 


150 

568 

DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1 


535 

DATA 0,1,0,0.0,2.0,1,0,2,1, 

1,0,3 



,1,1,1,1 

IFE 


,1.1 


IF4 

569 

tab4 : 

! 52 

536 

tabl : 


146 

'570 

DATA 2,1,1,1,1,1,1,9,9,9,9,1,1,1 


537 

DATA 2,1,1,1.1.1,1,1,1,1,1 

1.1,1 



.1.1,1,3 

134 


.1.1,1.3 


154 

571 

DATA 0,8,0,4,0,0,1,9,9,9,9,1,4,0 


538 

DATA 0,8,0,0,0,0,0.0,0,4,0 

0,0,0 



,0,0,0.0 

IB2 


,0,0,0,0 


101 

572 

DATA 2,0,0,1.1.0,1,9,9,9,9,1,0,1 


539 

DATA 2,1,1,1,1,0,1,1,1,1,1 

1,1,0 



,1,0,0,3 

! AA 


.1,1.1,3 


124 

573 

DATA 1,0,0,0,1,0,0,1,1.1.1.0,0,1 


540 

DATA 1,4,0,0,1.0,1,9,9,9,9.9,1,0 



,4,0,0,1 

IA0 


,1,9.9,1 


IE0 

574 

DATA 1,0,1,0,1,0,0,0,0,0,4,0,0,1 


541 

DATA 1,0,1,0,1,0,1,1,1,1,1,1,1,0 



,0,1,0,1 

152 


,1.9.9,1 


I0A 

575 

DATA 1.0,1,4,1,0,0,0,0,0,0,0,0,1 


542 

DATA 1,0,1,0,1,4,0,0,0,0,0 




,0,1.0,1 

I1B 


,1.1,1,1 


152 

576 

DATA 1,0,0,0,1.0,0,1,1,1,1,0,0.1 


543 

DATA 1,0,1,0,1,1,1,1,3,1,1,1,1,0 



,0,0,0,1 

118 


,0,0.4,1 


122 

577 

DATA 1,0,0,1,1.0,1.9,9.9,9,1,0,1 


544 

DATA 1,0,1,.0,4,0,0,0,0,0,0 




.1.0,0,1 

154 
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578 

DATA 3.4.0.0,0,4,1,9,9,9,9.1,0,0 



.0.0.0,1 

I8E 


,0,0,4,2 

! 24 

612 

DATA 1,1,1,1,1,1,1,1,1,1,1.1,1,1 


579 

DATA 1.1,1,1,1.1,1.1,1,1,1.1, 1,1 



,1,1.1,1 

IFE 


,1.1,1,1 

IFE 

613 

tab8: 

162 

580 

tab5 : 

156 

614 

DATA 1,1,1,1,1,3,3,1,1,1,1,3,3,1 


581 

DATA 1,1,1,1,1,9,9,9,9.9.9,9,9,1 



,1.1,1,1 

IB6 


.1,1.1.1 

!BE 

615 

DATA 1,8,0,0,4,0,0,0,0,0,0,0,0,0 


582 

DATA 1,8,0,4,1,1,3.1,1,1,1,1,1,1 



.0,0,4,1 

19F 


,4.0,0,1 

190 

616 

DATA 1.0.1„ 1,1,1,0.0,1,1,1,3,3,1 


583 

DATA 1.0,0,0,0.0,0,0.4,0.0.0,0,0 



,1,1,0.1 

I1E 


,0,0,0,1 

IE6 

617 

DATA 1,0,1,9,9.9,3,0,0,3,9,9,9,9 


584 

DATA 1,4,0,0,1,1,1,1,1,1,1,3,1,1 



,9,1,0,1 

IFA 


,0,0.4,1 

! 64 

618 

DATA 1,0,1,9,9,9,9,1,4,0,1,9,9.9 


585 

DATA 1,1,0,1,1.0,0,0,0,0,0,0,4,1 



,9,1,0,1 

!BA 


,1,0,1,1 

190 

619 

DATA 1,0,1,9,9,9,9.9.3,0,0,3,9,9 


586 

DATA 9.1,0,1,0,0,1,1,0,0,1,1,0,0 



.9.1,0,1 

182 


.1,0.1,9 

IB6 

620 

DATA 1,0,1,9,9,9,9,9.9,1,0,0,1,9 


587 

DATA 1,1,0,1,4.0,1,4,0,0,4,1,0,0 



.9,1,0,1 

1DB 


,1.0.1,1 

108 

621 

DATA 1.0,1,1,1,1,1,1,1,1.3,0,0,2 


588 

DATA 1.0,0,1,1,1,1,0,2.3,0.1,1,1 



.1,1,0,1 

!EA 


.1.0,4,1 

152 

622 

DATA 1,4,0,0,0,0,0.0,0,0.0,0,0,0 


589 

DATA 1,4,0,0,0,0,0,0,0,0,0,0,0,0 



,0,0,0,1 

IAE 


.0.0,0,1 

!AE 

623 

DATA 1,1,1,1,1,1,1,1.1,1.1,1,1,1 


590 

DATA 1,1,1,1,1,1,1.1,1,1,1,1,1,1 



,1.1.1,1 

IFE 


,1,1.1.1 

IFE 

624 

tab9 : 

166 

591 

tab6 : 

! 5A 

625 

DATA 1,1,9,9,9,9,1,1,1,1,1,1,9,9 


592 

DATA 1,1,1,1,1.3,1,1,1,1,9,9,9,9 



,9,9.1,1 

1BE 


.9,1,1,1 

ICE 

626 

DATA 1,8,1,9,9,9,1,4,0.0,0,1,9,9 


593 

DATA 1.8,0,0,0,0,0,0.4,1,9,9,9,9 



,9,1,4,1 

1ËC 


, 9,1.0.1 

IA8 

627 

DATA 1,4,0,1,9,9,9.1,0,0,1,9,9,9 


594 

DATA 1,0,1,0,0,0,0,0,0,1,9.9,9,9 



.1,0,0.1 

IE4 


,9,1,0,1 

I1A 

628 

DATA 1.0,0,0,1,9,9,1,0,0,1,9,9,1 


595 

DATA 1,0,3,0,1.0,0,0,4,1,9,9,9,9 



,0,0,0,1 

1 27 


,9,1,0.1 

194 

629 

DATA 1,0,0,0,4,1,9.1,0,0,1,9,1,4 


596 

DATA 1,0,1,0,3,0,1,0,0,1,9,9,9,9 



,0,0.0.1 

140 


, 9,1,0,1 

156 

630 

DATA 1,0,0,0,0,0,1,0,0,0,0,1,0,0 


597 

DATA 1,0,3,0,1,0.3.0,0,1,9,9,9,9 



.0.0,0,1 

IBC 


.9,1,0,1 

172 

631 

DATA 1.0,0,0,4,0,0,0,0,0,0,0,0,0 


598 

DATA 1,0,1.0,3,0.1,0,0,1,9,9.9.9 



,0,0,0,1 

! C6 


.9,1,0,1 

156 

632 

DATA 1,0,0,1,2,3,1,0,0,0,0,1,2,3 


599 

DATA 1.0,1,0,1,0,3,0,4,1,1,3,1,3 



,1,0.0.1 

ID3 


,1,1.4.1 

116 

633 

DATA 1,4,0,1,9,9,1,4,0,0,0,1,9.9 


600 

DATA 1,0,0,4,0,0,0,0,0,0,0,0,0,4 



,1.0,4,1 

I2E 


.0,0.0,1 

I3E 

634 

DATA 1,1,1.1.1,1,1.1,1.1,1,1,1,1 


601 

DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1 



,1,1.1,1 

IFE 


.1.1,1,! 

IFE 

635 

tabl0: 

171 

602 

tab7 : 

I5E 

636 

DATA 2.1,1,1,1,1,1,3,1,1,1,1,1,1 


603 

DATA 1.1,1,1,1,3,1,1,1,1,3.1,1,1 



,1,1,1.3 

I7C 


,1,1,1,1 

152 

637 

DATA 0,0,0,0,0,0,0,4,0,0,0,0,0,0 


604 DATA 1,8,0,0.0,0,0,0.0,0,0,0,0,0 



,0.0,0,0 

)B0 


,0,0.0.1 

ICE 

638 

DATA 2,0.1,1.1,1,0,1,1,1,0,0,1,1 


605 

DATA 1,0,1.1,1,3,1,1,1.0,3,1,1,1 



,1,4,0.1 

IFA 


,1,1,0,1 

I0C 

639 

DATA 1,0,1.4,0.0,0,1,0,4,1,0,1,9 


606 

DATA 1.0.1.9,9,9,9,9,1,4,1.9,9.9 



.9,1,0,! 

IEA 


, 9 , i ; 0 , i 

178 

640 

DATA 1,0,1,1,1,0,0,1,0.0,1,0,1,9 


607 

DATA 1,0,1.9,9,9,9,9,1,0,1.9,9.9 



,9,1,0,1 

174 


,9,1,0,1 

118 

641 

DATA 1,0,1,0,0,0,0,1,0,0,1,0,1,9 


608 

DATA 1,4.1,1,1.1,1.1,1,0,1,1,1,1 



.9,1,0,1 

I5A 


.1,1,4.1 

170 

642 

DATA 1,0.1,1,1.1,0.1,0,0,1,0,1.1 


609 

DATA 1,0,0,0,0,0,0.0,0,0,0,0,0,0 



,1,0.0.1 

! 50 


,0.0,0,1 

I8E 

643 

DATA 1,0,0,0,0.0.0,0.0,0.0.0,0,0 


610 

DATA 1,0,1,1,1,1,1,1,1,0,1,1,1,1 



.0,0.0,1 

I8E 


,1,1,0,1 

IB8 

644 

DATA 1,4,4,4,4.4,4,4,4,4,4,4,4,4 


611 

DATA 1,0.0,0,0,0,0,0,0,0,0,0,0,0 



,4,4.4.1 

I4E 
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645 DATA 1,1,1,1,1,1.1,1,1,1.1,1,1,1 

,1.1,1,1 IFE 

646 routine: IBA 

647 DATA 601A,0000,0036,0000,0000,00 

00,0000 14C 

648 DATA 0000,0000,0000,0000,0000,00 

00.FFFF IC3 

649 DATA 207C,0007,8000,227C,0003,0D 

40.303C I8D 

650 DATA 000F,323C,001E,48A7.8000,48 

E7.0080 102 

651 DATA 20D9,51C8,FFFC,4CDF,0100,4C 

9F,0001 156 

652 DATA D1FC,0000,00A0,51C9.FFE2,4E 

75,0000 IB8 

653 dessins: IF0 

654 DATA 0000,0000,0000,7FFC.7FF8,43 

F8.21F8 I1B 

655 DATA E206,7FFC,3FFC,401C.FFE2,7F 

FC.3FFC ,IB8 

656 DATA 000C.BFF2,7FFC,3FFC,0004,BF, 

FA.7FFC 120 

657 DATA 3FFC,0004,BFFA,7FFC,7FFC,00 

04,FFFA IFC 

658 DATA 7FFC,7FFC,0004,FFFA,7FFC,7F 

FC,4000 128 

659 DATA BFFE,7FFC,7FF8,4000,BFFA,7F 

FC.7FF8 143 

660 DATA 6000,9FFA,7FFC,7FF8,6004,9F 

FE,3FFC ID0 

661 DATA 3FC4.3F08.C0CE,0000,0000,00 

00.7FFC 148 

662 DATA 4004.4004,4004,4004.F7CE.B7 

CA.F7CE 110 

663 DATA F7CE,6FF4,4824,582C,7C7C,3F 

F8.2008 IF5 

664 DATA 2008,3AB8,6FFC,4284,5444.70 

1C.7C7C ID9 

665 DATA 4444,4BA4,711C,77DC,4004,48 

24.7FFC IA2 

666 DATA 739C,4004,4004,739C,701C,40 

04,4824 !0A 

667 DATA 783C,5834,600C.4444,7C7C,24 

48,3838 I5D 

668 DATA 2388,27C8,1830,1FF0,1830,18 

30.07C0 !B7 

669 DATA 07C0,07C0,07C0,0000,0000,00 

00,0000 !C0 

670 DATA 0000,0000,0000,0000,0000,00 

00,0000 !DF 

671 DATA 0000,0000,0000,0000,0000,07 

80,0780 IFA 

672 DATA 0780,0780,0840,0FC0,0840,0B 

40,1320 160 

673 DATA 1CE0.1120,15A0,1420.1BE0,14 

20.1FE0 112 

674 DATA 1020,1FE0.1020,1760.1020,1F 

E0.1020 IDC 

675 DATA 1220,0840,0FC0,0840,0840,07 

80.0780 ID2 

676 DATA 0780,0780,0000,0000,0000,00 

00,0000 !0C 

677 DATA 0000,0000,0000,0000,0000,00 

00,0000 IDF 


DATA 0000,0000,0000,7FFC,7FF8,43 
F8.21F8 I1B 

DATA E206,7C7C,3C7C,401C.FC62,78 
7C 387C | AD 

DATA 000C.B872,700C,320C,0204,B0 
0A.600C I0A 

DATA 260C,07E4,A20A,400C,4FCC,0F 
E4,CFCA 123 

DATA 400C,4FCC,0FE4.CC0A,600C,66 
0C.47E0 150 

DATA A00E,700C,7208,4200,B00A,78 
7C.7878 170 

DATA 6000,987A.7C7C.7C78,6004,9C 
7E.3FFC I3A 

DATA 3FC4,3F08.C0CE,0000,0000,00 
00.7FFC ' 148 

DATA 0000., 0000,0000,7FFC , 7FF8,43 
F8.21F8 I1B 

DATA E206,7C7C,3C7C,401C,FC62,7C 
3C.3C3C 188 

DATA 018C.BC32,601C, 209.C, 01C4, A0 
1A.600C s. I2D 

DATA 20CC,0FE4,A04A,6004,67E4,0F 
F0.E7E6 IA7 

DATA 6004.67E4,0FF4,E042.600C,60 
CC.4FE0 IEB 

DATA A00E,601C,6098,41C0,A01A,7C 

3C.7C38 I5E 

DATA 6180,9C3A,7C7C,7C78,6004,9C 
7E.3FFC !Dl 

DATA 3FC4.3F08.C0CE,0000,0000,00 
00.7FFC 148 

DATA 0000,0000,0000,0000,0000,00 
00,0000 IDF 

DATA 0000,0000,0000,0000,0000,07 
80.0780 IFA 

DATA 0000,0000,0840,0FC0,0780,03 
00,1320 124 

DATA 1CE0.0DC0,0580,1420,1BE0,0F 
C0.0FC0 IFS 

DATA 1020,1FE0,0FC0,0740,1020,1F 
E0.0FC0 ICI 

DATA 0200-,0840,0FC0,0780,0000,07 
80,0780 IBA 

DATA 0000,0000,0000,0000,0000,00 
00.0000 IDF 

DATA 0000,0000,0000,0000,0000,00 
00,0000 IDF 

DATA 0000,0000; 0000,07C0,07C0.05 
40,0000 125 

DATA 0D60.0FE0,0820,0000,1830,IB 
A0.12A0 I2A 

DATA 0000,12B8,1920,1020,0000,30 
38,3930 167 

DATA 36D0,0000,345C,7FF8,4288,00 
00.428C 178 

DATA FC7C,8444,0000.8444,F83C,80 
00,0000 102 

DATA 8000.FBBC.D004,8000,5004,7F 
FC.780C - IF5 

DATA 7004,8808,3FFC,3FFC,399C,86 
60,4672 I7D 

DATA 4672,4672,318C,0000,0000,00 
00.4E72 181 


678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 
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AMIGA 


PROGRAMMATION 


IKdimensionnellement vôtre 


VOLUMIX (GFA BASIC) 

Ce logiciel permet l'élaboration de 
figures en fil de fer dans un espace 
tridimensionnel et leur rotation selon les 
axes x,y,z. 


T 1 se compose de 2 pro- 

I grammes: VOLUMIX 

JL qui réserve de la mémoi¬ 

re puis charge VOLUMIX1, le 
programme principal. 

Menu fichier 

Load: charge un fichier précé¬ 
demment créé. 

Save: sauvegarde une figure. 
Save cycle: sauvegarde une 
cycle complet si vous avez pré¬ 
cédemment sélectionné Start, 
Les fichiers cycles créés par 
VOLUMIX peuvent être utili¬ 
sés dans vos propres pro¬ 
grammes. 

Quit: quitte VOLUMIX. 

Menu création 

Point: place un point aux coor- 
données X,Y,Y du viseur 


actuel. 

Connection: si vous avez plus 
de 2 points, déplacez un petit 
viseur avec le bouton droit de 
la souris. Une fois sur le bon 
point, cliquez sur le bouton 
gauche. Apparaît alors une 
ligne du point actuel jusqu'au 
point suivant. Sélectionnez le 
second point de la même 
manière. Quitter cette fonction 
par une touche quelconque du 
clavier. 

Détruire point, détruire 
connection: affiche un point 


entouré ou une ligne en vert 
pour la sélection et la destruc¬ 
tion. Même méthode d'utilisa¬ 
tion de la souris que dans 
connection. 

Sym H: chaque point que vous 
tracez est dédoublé horizonta¬ 
lement. 

Sym V: même chose mais ver¬ 
ticalement. Si vous sélection¬ 
ner Sym V et Sym H, vous 
obtiendrez 3 points lorsque 
vous en. tracerez un. 

Clear: mise à zéro de tous les 
pointeurs. 


Menu vue 

Vue de face: montre la figure 
actuelle en vue de face. 

Vue de dessus: idem en vue 
de dessus. 

Vue de gauche: idem en vue 
de gauche. 

Menu rotation 

Angle X: rotation selon l'axe 
horizontal. 

Angle Y: rotation selon l'axe 
vertical. 

Angle Z: idem selonTaxe de la 
profondeur. 

Start: effectue les calculs et 
montre la figure actuelle en 
mouvement. 


Daniel Provenier 


’ ■ indique 1 'endroit où 

,start,0- 

’ vous devez frapper Return. 

RETURN- 


PROCEDURE init- 

RESERVE 100000- 

OPENS 1,0,0,320,250,2,0- 

RUN "volumixl"- 

OPENW #1,0,0,320,250,0.0- 
CLEARW #1- 

TITLEW #1,"ROTATION 3D"- 
adr1%=WIND0W<1)+50« 

’ ■ indique 1 * endroit où 

RASTPORT LONG{adrl%}- 

' vous devez frapper Return. 

SETCOLOR 0,0,0,0- 

SETCOLOR 1,15,15,15- 

DEFWRD "a-z". 

SETCOLOR 2,0,15,0- 

@init- 

SETCOLOR 3,0,0,15- 

@prog- 

DEFINT "a-z". 

EDIT- 

DEFFLT "c,s". 

PROCEDURE prog- 

DIM x&(200),y&(200),z&(200),xl&(70,200) 

ON MENU GOSUB qqc- 

,yl&(70,200).j&C1.200).a$C25),valm&(25)- 

WHILE qut&=0. 

np&= 0 . 

SLEEP- 

nc&=0. 

IF M0USEK=1- 

vue&=l- 

@viseur- 

quit&=0. 

@viseurl« 

x&=160. 

ENDIF- 

y&=100. 

@coord- 

z&=160. 

WEND- 

ax&=5- 

RETURN. 

ay&= 5 - 

PROCEDURE qqc- 

az&=5- 

m&=MENU(0). 

rx&=0. 

ON m&+l GOSUB 0,load,save,savec.quit,0, 

ry&=0» 

0,point,connec,destp,destc,symh,symv,cle 

rz&=0- 

ar,0,0,vuef,vued,vueg,0,0,angx,angy,angz 

symh%=0« 
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symv%=0- 
FOR n&=0 TO 25- 
READ-a$(n&)• 
valm&(n&)=&H52- 
NEXT n&- 
MENU a$( ) ■ 

FOR n&=21 TO 23- 

valm&(n&.)=valm&(n&) OR &H101- 
MENU n&,valm&(n&)- 
NEXT n&- 

valra&(16)=valm&(16) OR &H101- 

MENU 16,valm&(16)- 

@trait_axe- 

@aff_face- 

@viseurl« 

DATA FICHIER,Load,Save,Save Cycle,Quit, 

DATA CREATION,Point,Connection,Détruire 
point,Détruire connec., Sym H, Sym V, 
Clear, ""- 

DATA VUE, Face, Dessus, Gauche,""- 
DATA ROTATION, Angle x, Angle y, Ang 
le z. Start,""■ 

DATA ""- 
RETÜRN- 

PROCEDURE calcul- 
@menu_off« 
cy&=l« 

BOX 0,0,319,200- 

LOCATE 1,1- 

PRINT "Please Wait". 

PRINT "Computing positions"- 

rx&=0. 

ry&=0- 

rz&=0- 

FOR i&=0 TO 70- 
LOCATE 11,2- 

PRINT USING "##",71-i&;« 

cx=COSQ(rx&)- 

ssx=SINQ(rx&)- 

cy=COSQ(ry&)- 

ssy=SINQ(ry&)- 

cz=COSQ(rz&)■ 

ssz-SINQ(rz&)■ 

cl=cy*cz- 

c2=cy*ssz« 

c3=-ssy- 

ssyl=-ssy*ssx- 

c4=ssyl’ ( ‘cz+cx*ssz- 

c5=ssyl*ssz-cx’ ([ cz- 

c6=-ssx*cy- 

c7=çx*ssy*cz+ssx*ssz- 

c8=cx*ssy*ssz-ssx*cz- 

c9=cx*cy- 

FOR n&=0 TO np&-1- 
al&=x&(n&) -' 
a2&=y&(n&)- 
a3&=z&(n&)* 

szz=(al&*c7+a2&*c8+a3&*c9)+160« 

xl&(i&,n&)=(al&*cl+a2&*c2+a3&*c3)*l 

60/szz+160- 

yl&(i&,n&)=-(al&*c4+a2&*c5+a3&*c6>* 
125/szz+125- 
NEXT n&- 
rx&=(rx&+ax&)« 


ry&=(ry&+ay&)■ 
rz&=(rz&+az&)■ 

NEXT i&- 
@menu_on■ 

RETÜRN. 

PROCEDURE affiche- 
OPENS 2,0,0.320,250,1,0- 
OPÈNW #2,0.0,320,200,0,0,2- 
OPENW #3.0.0.320,200.0,0,2- 
CLEARW #2- 
CLEARW #3- 
FRONTW #2- 

adr3%={WINDOW(3)+50}- 
adr 2%={WINDOW(2)+5 0}- 
WHILE MOUSEKol- 
i&=-l- 

WHILE MOUSEKol AND i&<70- 
INC i&- 

RASTPORT adr3%- 

CLEARW #3- 

FOR n&=0 TO nc&-l■ 

LINE xl&(i&,j&(0,n&)),yl&<i&,j&(0 
,n&)),xl&(i&,j&(l,n&)),yl&(i&,j&(1,n&))■ 
NEXT n&- 

GET 0,0,320,200,i$- 
RASTPORT adr2%- 
PUT 0,0,i$- 
WEND- 
WEND- 
CLOSES 2- 

RASTPORT LONG{WINDOW(l)+50>- 
@trait_axe- 
@aff face- 
ras=T- 
RETURN- 

PROCEDURE trait_axe- 
CLS- 

COLOR 1- 

BOX 0,0,319,200- 
COLOR 2- 

FOR i&=-15'TO 199 STEP 20- 
LINE 160,i&,160,i&+10- 
PLOT 160,i&+15- 
NEXT i&- 

FOR i&=5 TO 319 STEP 20- 
LINE i&,100,i&+10,100- 
PLOT 1&+15.100- 
NEXT i&- 
COLOR 1- 
RETÜRN- 

PROCEDURE aff_face- 
IF vue&=l- 

FOR n&=0 TO np&-1- 

PLOT x&(n&)+160,y&(n&)+100- 
NEXT n&- 

FOR n&=0 TO nc&-l. 

LINE x&(j&(0,n&))+160,y&(j&(0,n&))+ 
100,x&(3&(l,n&))+160,y&(ô&(l,n&))+100- 
NEXT n&- 
ELSE IF vuefic=3- 

FOR n&=0 TO np&-1- 

PLOT 160-z&(n&),y&(n&)+100- 
NEXT n&- 

FOR n&=0 TO nc&-l- 

LINE 160-Z&Cj&(0,n&)),y&(j&(0,n&))+ 
100,160-z&(j&(l,n&)),y&(j&(1,n&))+100- 
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'NEXT n&- 
ELSE- 

FOR n&=0 TO np&-1• 

PLOT x&<n&)+160,100-z&(n&)- 

NEXT n&- 

FOR n&=0 TO nc&-l- 

LINE x&(j&(0,n&))+160,100-Z&Cj&(0,n 

&)) ,x&(3&(l 1 n&)) + lô0.100-2&(Ô&a .n&)). 

NEXT n&- 
ENDIF. 

RETÜRN- 

PROCEDURE start- 
IF nc&<>0- 
@calcul- 
@affiche- 
-@viseur- 
ELSE- 

PRINT CHR$<7). 

ENDIF- 

RETÜRN- 

PROCEDURE quit. 
qüt&=l- 

RETURN- 

PROCEDURE angx- 
ax&=ax& XOR 5- 
n&=ax&« 

@menuang- 

RETÜRN- 

PROCEDURE angy■ 
ay&=ay& XOR 5- 
n&=ay&- 
@>menuang- 

RETÜRN. 

PROCEDURE angz « 
az&=az& XOR 5« 
n&=az&- 
@ménuang- 

RETÜRN- 

PROCEDURE menuang- 
IF n&=0. 

valm&(m&)=valm&(m&) AND &HFE- 
ELSE- 

valm&(m&)=valm&<m&) OR &H101- 
ENDIF. 

MENU m&,valm&(m&). 

RETÜRN- 

PROCEDURE viseur- 
GRAPHMODE 3- 
COLOR 3- 

LINE xl&-5,yl&,xl&+5,yl&- 
LINE xl&,yl&-5,xl&,yl&+5- 
COLOR 1- 
GRAPHMODE 0- 

RETÜRN. 

PROCEDURE viseurl- 
GRAPHMODE 3- 
COLOR 3- 
xl&=MOUSEX- 
yl&=MOUSEY- 
rep&=yl&- 

LINE xl&-5,yl&,xl&+5,yl&- 
LINE xl&,yl&-5,xl&,yl&+5. 

COLOR 1- 
GRAPHMODE 0- 
IF vue&=l- 
x&=xl&. 


y&=yl&« 

ELSE IF vue&=2- 
x&=xl&. 
z&=yl&- 
ELSE- 
y&=yl&« 
z&=xl&« 

ENDIF- 
RETURN- 

PROCEDURE ,viseur2- 
IF vue&=l- 
xl&=x&- 
yl&=y&- 

ELSE IF vue&=2- 
xl&=x&« 
z&=z&-60« 
yl&=z&« 

ELSE- 
xl&=z&- 
yl&=y&- 
ENDIF- 
RETURN- 

PROCEDURE vuef- 
IF vue&ol- 

valm&(m&)=valm&(m&) OR &H101- 
valm&(m&+l)=valm&(m&+l) AND &HFE- 
valra&(m&+2)=valm&(m&+2) AND &HFE- 
FOR n&=m& TO m&+2- 
MENU n&,valm&(n&)- 
NEXT n&- 
IF vue&=2- 
z&=z&+60- 
ENDIF- 
vue&=l- 
@trait_axe- 
@aff_face- 
@viseur2- 
@viseur- 
ENDIF- 
RETURN- 

PROCEDURE vued- 
IF vue&<>2« 

valm&(m&)=valm&(m&) OR &H101- 
valm&(m&-1)=valm&(m&-1) AND &HFE- 
valtn&(m&+l)=valm&(m&+l) AND &HFE- 
FOR TO m&+l- 

MENU n&,valm&(n&)■ 

. NEXT n&« 
vue&=2- 
@trait_axe- 
@aff_face- 
@viseur2- 
@viseur- 
ENDIF- 
RETÜRN. 

PROCEDURE vueg- 
IF vue&<>3- 

valm&(m&)=valm&(m&) OR &H101- 
valm&(m&-2)=valm&(m&-2) AND &HFE- 
valm&<m&-l)=valm&(m&-l) AND &HFE- 
FOR n&=m&-2 TO m&- 
MENU n&,vaïm&(n&)« 

NEXT n&- 
IF vue&=2- 
z&=z&+60- 
ENDIF- 
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vue&=3* 

@trait_axe» 

@aff_face* 

@viseur2* 

@viseur« 

ENDIïV 
RETURN* 

PROCEDURE point* 

IF rep&<200« 

PLOT xl&,yl&« 

@pointl* 

IF symh%=l* 

PLOT 320-xl&.yl&* 
x&=320-x&- 
@pointl* 
x&=320-x&* 

ENDIF* 

IF symv%=l* 

PLOT xl8ç, 200-yl&* 
y&=200-y&* 

@pointl* 

y&=200-y&* 

ENDIF- 
ELSE* 

PRINT CHR$(7);• 

ENDIF- 
RETURN* 

PROCEDURE pointl* 

ON vue& GOSÜB pointf.pointd.pointg- 

x&(np&)=x2&« 

y&(np&)=y2&* 

z&(np&)=z2&* 

np&=np&+1• 

RETURN. 

PROCEDURE point!« 
x2&=x&-160* 
y2&=y&-100* 
z2&=160-z&« 

RETURN* 

PROCEDURE pointd* 
x2&=x&-160« 
y2&=y&-100* 
z2&=l00-z&* 

RETURN* 

PROCEDURE pointg* 
x2&=x&-160* 
y2&=y&-l00* 
z2&=160-z&* 

RETURN* 

PROCEDURE connec- 
@menu off* 

IF np5>l* 

GRAfHMODE 3* 

test&=0* 

xx&=0* 

@box* 

GRAPHMODE 3* 

WHILE INKEY$oCHR$( 27 ) ■ 

IF test&=l* 

@line* 

@Hne* 

ENDIF* 

a&=MOUSEK* 

IF a&=2* 

@box* 

INC xx&*• 


IF xx&=np&« 
xx&=0■ 

ENDIF* 

@box« 

@pause« 

ELSE IF a&=l* 

@box* 

IF test&=0* 
test&=l* 
xxl&=xx&* 

@box« 

@pause« 

ELSE* 

test&=0* 

GRAPHMODE 0* 

@line* 

j&(0,nc&)=xx&* 
j&( 1 ,nc&.)=xxl&* 

INC nc&* 

GRAPHMODE 3* 

@box* 

@pause* 

- ENDIF- 
ENDIF* 

WEND- ,V. ’ 

@box* 

GRAPHMODE 0* - 

ENDIF* 
menu_on« 

RETURN. 

PROCEDURE box* 

IF vue&=l* 

BOX x&(xx&)+158,y&(xx&)+98,x&(xx&)+16 
2,y&(xx&)+102* 

ENDIF. 

IF vue&=3* 

BOX 162-z&Cxx&),y&(xx&)+98 1 158-z&(xx& 
),y&(xx&)+102« 

ENDIF* 

IF vue&=2* 

BOX x&(xx&)+158,102-z&(xx&),x&(xx&)+l 
62,98-z&(xx&)• 

ENDIF* 

RETURN. 

PROCEDURE line* 

IF vue&=l* 

LINE x&(xx&)+160,y&(xx&)+100,x&(xxl&) 
+160,y&(xxl&)+100* 

ENDIF* 1 
IF vue&=3* 

LINE 160-z&(xx&),y&(xx&)+100,160-z&(x 
xl&),y&(xxl&)+100- 
ENDIF- 
IF vue&=2* 

LINE x&(xx&)+160,100-z&(xx&),x&(xxl&) 
+160,100-z&(xxl&)■ 

ENDIF. 

RETURN. 

PROCEDURE pause* 

WHILE MOUSEKO0* 

WEND* 

RETURN* 

PROCEDURE clear* 

ALERT 1,"Clear|are yourlsure I",1,"YesI 
No",a&- 
IF a&=l* 
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np&=0« 

nc&=0. 

@trait_axe« 

©viseur» 

cy&=0« 

ENDIF- 
FRONTS 1. 

RETÜRN. 

PROCEDURE load- 
@menu off» 

IF ras=l. 

BACKS 1. 

ENDIF- 

FILESELECT "Fichier 3D" ,"Charger”,"DF0: 
”,nom$■ 

IF nom$<>""« 

OPEN "I”,#1,110115$. 

INPUT #1,a$« 

IF-a$="VOLUMIX". 

INPUT #1,nc&« 

INPUT #1,np&. 

FOR n&=0 TO np&-1 « 

INPUT #1,x&(n&),y&(n&),z&(n&)« 
NEXT n&. 

FOR n&=0 TO nc&-l« 

INPUT #1 ,j&(.0,n&), j8c(i ,n&)« 

NEXT a&- 
CLOSE #1- 
@trait_axe» 

@aff_face» 

©viseur» 

ENDIF- 
CLOSE #1- 
ENDIF. 

FRONTS 1. 

@menu on» 

RETURN- 

PROCEDURE save. 

@menu_,off • 

IF ras=l- 
BACKS 1- 
ENDIF- 

FILESELECT "Fichierr 3D","Sauver",””.no 
m$- 

IF nom$<>""» 

OPEN "0",#1,nom$« 

WRITE #1,"VOLUMIX". 

WRITE #1,nc&. 

PRINT #1,np&. 

FOR n&=0 TO np&-l« 

WRITE #1.x&(n&),y&(n&),z&(n&)- 
NEXT n&- 

FOR n&=0 TO nc&-1- 

WRITE #1,0,n&), j&( 1,n&)■ 

NEXT n&. 

CLOSE #1- 
ENDIF- 
FRONTS 1. 

@menu on. 

RETURN7 

PROCEDURE symv- 
symv%=symv% XOR 1» 

IF symv%=l. 

valm&(m&)=valm&<m&) OR &H101. 

ELSE* 

valm&(m&)=valm&(m&) AND &HFE- 


ENDIF- 

MENU m&,valm&(m&)» 

RETURN. 

PROCEDURE symh- 
symh%=symh% XOR 1« 

IF symh%=l» 

valm&(m&)=valm&(m&) OR &H101. 

ELSE- 

valm&(m&)=valm&(m&) AND &HFE* 

ENDIF- 

MENU m&,valm&(m&)« 

RETURN. 

PROCEDURE destp. 

@menu off. 

IF npS<>0. 

GRAPHMODE 3- 
xx&=0. 

@box« 

GRAPHMODE 3- 

WHILE INKEY$="" AND np&<>0. 
a&=MOUSEK■ 

IF a&=2- 
@box» 

INC xx&. 

IF xx&=np&- 
xx&=0. 

ENDIF- 
@box* 

@pause. 

ELSE IF a&=l« 

@box- 
DEC np&- 
DELETE x&(xx&). 

DELETE y&(xx&). 

DELETE z&(xx&). 

FOR n=0 TO nc&-l» 

IF j&(0,n)=xx& OR j&(l,n)=xx&. 
FOR k=n TO nc&-2- 
3&(0,k)=j&(0.k+l)- 
j&(l,k)=j&(l,k+l). 

NEXT k- 

3&C0,k)=0. 

j&<l,k)=0. 

DEC nc&- 
ENDIF- 

IF 3&(0,n)>xx&- 
DEC j&(0,n)■ 

ELSE IF j&(1,n)>xx&. 

DEC 3&(l,n). 

ENDIF- 
NEXT n« 

GRAPHMODE 0. 

@trait_axe« 

@aff_face. 

@viseur» 

GRAPHMODE 3- 
@box« 

©pause* 

ENDIF. 

WEND- 

@box. 

GRAPHMODE 0- 
ENDIF. 

©menu on» 

RETÜRN. 
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PROCEDURE destc- 
@menu off• 

IF np&<>0- 
GRAPHMODE 3- 
xx&=0- 
@linel- 
GRAPHMODE 3- 

WHILE INKEY$="" AND nc&<>0- 
a&=MOUSEK- 
IF a&=2- 
@linel« 

INC xx&- 
IF xx&-nc&- 
xx&=0 « 

ENDIF- 
@linel« 

@pause« 

ELSE IF a&=l- 

FOR k=xx& TO nc&-1- 
3&(0.k)=Ô&(0.k+l). 
3&(l,k)=j&(l,k+l)- 
NEXT k- 
3&(0.k)=0. 
j&(l,k)=0- 
DEC nc&-. 

GRAPHMODE 0- 
@trait_axe■ 

@aff_face- 
@viseur- 
GRAPHMODE 3- 
@pâuse- 
@linel- 
ENDIF- 
WEND- 
@linel- 
GRAPHMODE 0- 
ENDIF- 
@menu_on- 
RETURN. 

PROCEDURE Une !-■ 

IF vue&=l. 

LINE x&(j&(0,xx&))+160,y&(j&(0,xx&))+ 
100 ,x&( 3&(1,xx&))+160,y&(J&(l,xx&))+100« 
ENDIF- 
IF vue&=3- 

LINE 160-Z&Cj&(0,xx&)),y&(j&(0,xx&))+ 
100,160-z&(ô&(l.xx&)),y&(Ô&(l.xx&>)+100- 
ENDIF- 
IF vue&=2- 

LINE x&(j&(0,xx&))+160,100-z&(j&(0,xx 
&)),x&(j&(l,xx&))+160,100-z&(j&(l,xx&))- 
ENDIF- 
RETURN. 

PROCEDURE menu_on« 

FOR n=l TO 4- 
@menu2- 
NEXT n- 

FOR n=7 TO 13- 
@menu2- 
NEXT n- 

FOR n=16 TO 18- 
@menu2 - 
NEXT n- 

FOR n-21 TO 24- 
@menu2- ■ 


NEXT n- 
RETURN- 

PROCEDURE menu off- 
FOR n=l TO 4- 
@menul■ 

NEXT n- 

FOR n=7 TO 13- 
@menul- 
NEXT n- 

FOR n=16 TO 18- 
@menul- 
NEXT n- 

FOR n=21 TO 24- 
@menul■ 

NEXT n- 
RETURN i- 

PROCEDURE menul- 
valm&(n)=valm&(n) AND &HFEF- 
MENU n,valm&(n)- 
RETURN- 

PROCEDURE menu2■ 
valm&(n)=valm&(n) OR &H10- 
MENU n.valm&Cn)- 
RETÜRN- 

PROCEDURE coord- 
LOCATE 1,26- 
x2&=x&-160- 
y2&=y&-100- 
IF vue&=l- 
z2&=160-z&- 
ELSE IF vue&=2- 
z 2 &= 100 -z&- 
ELSE- 

z2&=160-z&- 

ENDIF- 

PRINT USING "x=#### ",x2&- 
PRINT USING "y=#### ",y2&- 
PRINT USING ”z=#### ",z2&- 
RETURNi 

PROCEDURE savec- 
@menu off- 
IF cy5=l- 
IF ras=l- 
BACKS 1- 
ENDIF. 

FILESELECT "Fichier 3D Cycle","Sauver 
”,"",nom$- 

IF nom$<>""« 

OPEN "O".#l,nom$- 

WRITE #1."VOLUMIX.CYCLE"- 

WRITE #1,nc&- 

PRINT #1,np&- 

FOR i&=0 TO 70- 

FOR n&=0 TO np&-l- 

WRITE #1,xl&(i&,n&),yl&(i&,n&)- 
NEXT n&- 
NEXT i&- 

FOR n&=0 TO nc&-1- 

WRITE #1,j&< 0,n&),j&(1.n&)- 
NEXT n&- 
CLOSE #1- 
ENDIF- 
FRONTS 1- 
ENDIF- 
@menu_on- 
RETURN- 
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Un bon coup de poignet 

JOYSTICK AUTOMATIQUE 


Qui n'a eu, au détour d'un «Summer 
Games» ou d'un «Combat School», le 
bras complètement ankylosé après avoir 
réduit en bouillie les microswitches de 
son joystick? 



T erminé la galère grâce à 
un petit montage facile à 
réaliser pour peu que 
l'on possède un minimum de 
patience et de matériel. 

Principe 

Lorsqu'un transistor est pas¬ 
sant, le condensateur relié à 
son collecteur se décharge. Le 
courant issu du + 5 V passe 
alors par ce condensateur. La 
tension de base du second 
transistor devient donc nulle, 
ce qui le bloque. L'autre 
condensateur se charge alors 
en prenant le «+» venant de la 
broche reliée au collecteur du 
transistor bloqué. Une fois le 
premier condensateur complè¬ 
tement déchargé, le courant ne 
peut plus passer par ses 
bornes. Il repasse donc par la 
base du transistor et le second 
condensateur commence à se 
décharger. Le cycle recommen¬ 
ce. 

Mise en pratique 

Je vous conseille d'effectuer ce 
montage sur une plaquette à 
bandes cuivrées et percées, 
vendue pour environ 25 F chez 
tous les revendeurs de compo¬ 
sants électroniques. Cette pla¬ 
quette, une fois tous les com¬ 
posants soudés, est à placer 
dans une boîte où seront fixés 
quelques interrupteurs: deux 
commutateurs à trois positions 
reliant leurs broches opposées 
une à une et un interrupteur 
pour la Commande 
marche/arrct. Sortiront de 
cette boîte, deux câbles plats à 
6 conducteurs reliés à des 
fiches 9 broches (une fiche 
mâle et une femelle). L'une de 
ces deux fiches est destinée au 
port joystick de votre ordina¬ 


teur, l'autre, à la manette de 
jeu. Cette dernière sera opéra¬ 
tionnelle et gardera priorité 
sur le montage. 

Si vous constatez que, après 
avoir bougé la poignée de 
votre manette, ou pour une 
autre raison, le montage reste 
bloqué dans une position, ctei- 
gncz-le, puis rallumez-le. Ceci 
peut être dû à une valeur de 
charge égale des deux conden¬ 
sateurs. 

Liste des composants 

• 4 diodes 1N4004. 

• 2 résistances 1/4 de watt 10 
Kohms (marron, noir, orange). 

• 1 résistance 1/4 de watt 5,6 
Kohms (vert, bleu, rouge). 


• 2 transistors BC141. 

• 2 condensateurs électroly¬ 
tiques 10 pF (microFarrad). 

• 1 plaquette à bandes cui¬ 
vrées percée. 

• 1 interrupteur à fermeture 2 
positions. 

• 2 commutateurs 3 positions. 

• 1 prise 9 broches mâle. 

• 1 prise 9 broches femelle. 

Test du montage 

Une fois monté, il va falloir 
tester votre montage. Ce court 
programme en Amiga Basic 
vous y aidera. 

CLS 

LOCATE 1,20 

PRINT 'Testeur du montage élec¬ 
tronique" 


IF STICK(2)=-1 THEN 
LOCATE 10,5 
PRINT "Gauche" 

WHILE STICK(2)=-1:WEND 

LOCATE 10,5 

PRINT" 

END IF 

IF STICK(2)=1 THEN 
LOCATE 10,30 
PRINT "Droite" 

WHILE STICK(2)=1:WEND 
LOCATE 10,30 v 
PRINT" 

''END IF 

IF STICK(3)=-1 THEN 
LOCATE 5,15 
PRINT "Haut" 

WHILE STICK(3)=-1:WEND 
LOCATE 5,15 
PRINT " " 

END IF 

IF STICK(3)=1 THEN 
LOCATE 15,15 
PRINT "Bas" 

WHILE STICK(3)=1:WEND 
LOCATE 15,15 
PRINT " " 

END IF 

IF STRIG(3)=-1 THEN 
LOCATE 20,2 
PRINT "Tir" 

WHILE STRIG(3)—1:WEND 
LOCATE 20,2 
PRINT" " 

END IF 
GOTO start 

Après l'avoir tapé, branchez la 
prise 9 broches dans le port 
joystick #2 (celui qui n'est pas 
occupé par la souris). 
L'affichage à l'écran doit être le 
suivant: 

• Un commutateur en position 
D-2 et l'autre en position A-l: 
affichage alternatif de «Bas» et 
«Haut». 

• Un commutateur en position 
E-4 et l'autre en position B-3: 
affichage alternatif de «Droite» 
et «Gauche». 

• Un commutateur en position 
F-G et l'autre en position C-6: 
affichage de «Tir» clignotant 
rapidement (tir automatique). 






























































































RC 


PRISE DE TETE 

Algorithmique 

LES TRIS 


L Le but de cet article est 
de vous éviter d'avoir à 
choisir entre le tri à bulles 
et... le tri à bulles en présentant 
un certain nombre d'alterna¬ 
tives parmi les plus clas¬ 
siques... 

Tout d'abord, pour classer un 
ensemble d'éléments comme 
un tableau d'entiers ou une 
suite de noms, etc., il fout dis¬ 
poser d'une relation d'«ordre» 
qui permette, de décider pour 
deux éléments quelconques de 
cet ensemble s'ils sont égaux 
ou différents et dans ce dernier 
cas, lequel est le plus grand. 
On a par exemple la relation 
«<=» pour les entiers et les 
réels ou encore l’ordre alpha¬ 
bétique pour les chaînes de 
caractères. En d'autre termes et 
pour chaque élément, on doit 
choisir et disposer d'une infor¬ 
mation qui le rende compa¬ 
rable à tout autre élément, 
celle-ci s'appelle la CLE. Ainsi, 
dans le cas d'un tableau d’en¬ 
tiers, la clé pourra être l’entier 
lui-même. Pour une fiche sta¬ 
tistique comportant nom, 
adresse, date de naissance..., la 
clé (le critère) choisie pourra 
être le nom ou la date de nais¬ 
sance ou le département etc. 
Ceci posé, tous les pro¬ 
grammes de tri proposés se 
débrouilleront avec trois 
paramètres qui seront : 

• Le nombre d’éléments à trier. 
• Un pointeur sur une routine 
comparant deux éléments xl et 
x2 telle qu'elle renvoie : 

- 0, si clé( xl ) == dé{ x2 ) ; 

- un nombre positif, si dé( xl ) 
> clé( x2 ) ; 

- un nombre négatif, si clé( xl ) 
< clé( x2 ) ; 


La plupart des programmes nécessitent 
tôt ou tard un classement de leurs 
données par l'obligeance d'un algorithme 
de tri. Votre langage préféré n'en dispose 
pas? Programmez-le vous-même... 


Cette routine appelée compa- 
re() ou cmp_cles() dans le tri 
recevra comme paramètre 
deux entiers permettant d’ac¬ 
céder a xl et x2 par rapport à 
une structure de donnée quel¬ 
conque, tableau ou fichier, etc. 
Ces entiers seront l'indice dans 
le cas d'un tableau ou le numé¬ 
ro d'enregistrement pour un 
fichier en accès direct. 

• Un pointeur sur une routine 
permutant deux élément xl et 
x2 et ayant les mêmes para¬ 
mètres d'entrée que cmp_cle(). 
Cette routine sera baptisée 
echangeO ou swp_elts() dans 
le tri. 

Les deux routines ci-contre (lis¬ 
ting 1) montrent comment peu¬ 
vent se présenter cmp_cles() et 
swp_élts() dans un cas won tri¬ 
mai. Ici, il s'agit de classer les 
éléments d'un objet de type 
LISTE par ordre alphabétique. La 
clef est une chaîne contenue dans 
les variables «info». 

Si la méthode ci-dessus paraît 
lourde et formaliste, elle pré¬ 
sente pourtant un avantage 
énorme: le programme de tri 
proprement dit est totalement 
indépendant du type de don¬ 
née qu'il doit classer, cette 
information n'étant utilisée 
qu’au niveau de cmp_cles() et 
swp eltsO. Dans ces condi¬ 


cmp_list( I, | ) 
inti,| 


LISTE * Ist = ( LISTE * ) ; 

relurn( slrcmp( lst->)nfoll], Isl-slnlojj] ) ) 


swpjlstf I, ] ) 
register int 1,1 ; 


register LISTE * Ist = ( LISTE * ) ptrjri 
register Int attrlb ; 
register long ptr ; 

attrlb = lst->attrib[ j 1 ; 
lst->attribjj] = ist->aitribjl] ; 
lst->attrlb[i] = attrlb ; 

ptr = ( long ) lst->lnfo[j] ; 
tst->into[j] = lst->lntoji] ; 
lst->info[lj = ( char * ) ptr ; 

ptr = ( long ) lst->poIntr[j] ; 
lst->pointr[)] = lst->pointî[i] ; 
lst->polntr[i] = ( long ) ptr ; 


Listing 1 


tions, on a obtenu un pro¬ 
gramme de tri universel pou¬ 
vant aussi bien trier des 
tableau d'entiers que des 
tableaux de structures ou des 
noms ou encore même des 
fichiers. Les seules choses à 
modifier en fonction du type 


de tri souhaité sont les deux 
fonctions cmp_cle() et 
swp_elt(). Pour concrétiser les 
choses, voyons sur un petit 
exemple (listing 2) comment 
se déroulent les opérations 
avec un tableau d'entiers qu'on 
désire trieT par ordre croissant. 
Note: bien entendu, si vous ne 
disposez pas d'un lan¬ 
gage permettant de 
passer en paramètre 
un pointeur sur une 
fonction, vous pour¬ 
rez toujours remplacer 
cmp_cles() ou 
swp_elts() par leur 
valeur à l'endroit où 
ceux-ci apparaissent. 

Si tous les algorithmes 
qui vont suivre sont 
capables de classer, ils 
ne sont pas égaux 
devant le tri ou même 
selon l'ensemble à 
trier. Certains 
deviennent très lents 
si le nombre d'objets 
dépasse quelques cen¬ 
taines et carrément 
rédhibitoires passé 
quelques milliers (tri à 
bulles, tri par inser¬ 
tion). D'autres ne sont 
intéressants que pour 
des nombres moyens 
ou grands (tri par 
arbre ou heapsort). Il 
en existe même qui, 
bien que globalement très effi¬ 
caces (tri rapide ou quicksort), 
risquent de dégénérer quand 
les données se présentent dans 
un certain ordre (même si la 
probabilité est infime, les lois 
de Murphy rappellent que 
quand le pire peut arriver, il 
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typedef int ( * PFONC )() ; r déclaration du type pointeur sur 7 
r une fonction renvoyant un entier. 7 

Ideflne NBELTS 5000 r et allez donc ! 7 
int tab_global[ NB_ELTS ] ; !" le tableau à trier 7 

maln() 

{ 

PFONC echangeQ, compare)) ; 
l 'Certains C le veulent ainsi ! 7 

r Ici remplissage du tableau ou autre... 7 

trl_xxx( NB_ELTS, échangé, compare ) ; 

} 

trl_wx( nb, cmp_eles, swp_elts ) 

Int nb ; 

PFONC cmp clés, swp elts ; 

{ 

r Ici se déroule le tri proprement dit qui pilote les appels 7 
r à ( *cmp clés X) et ( *swp elts)0 quand il en a besoin. 7 

} 


compare) 1, J ) 
Int IJ; 


reglster Int * ptr = ( Int * ) tab_global ; 
retum{ ptr[i] • ptrfl] ) ; 

r c'est tout car les entiers sont dans ce cas leur propre clé 7 
/* si on avait voulu trier par ordre décroissant, Il suffisait 7 
r de faire le contraire. 7 


échangé) I, ] ) 
reglster Int i, ] ; 

{ 

reglster Int tampon, * ptr = ( int * ) iab_global ; 

tampon = ptr{ I ] ; 
ptr[ I ] = ptr[i ] 
ptr[j] = tampon ; 


Listing 2 


ion pour ce qui suit. Le critère 


détaillée tri par tri se révèle 
très utile et fait appel à des 
notions importantes pour la 
programmation. 

La vitesse 

Si vous êtes fâchés avec les 
mathématiques, sautez les 
parties qui les utilisent mais 
faites quand même un effort 


essentiel qui guide le choix 
d'un algorithme de tri (ou 
autre) est sa vitesse d'exécu¬ 
tion, il importe donc de se 
pencher sur le problème géné¬ 
ral du temps pris en fonction 
des variables d'entrées. Pour 
simplifier les choses, considé¬ 
rons que l’exécution de la 
séquence interne - à l'intérieur 
des boucles - d'une routine 


prend une durée fixe tO qu'on 
fixera à 1 ms (milliseconde). 
Prenons pour commencer le 
cas d'un tableau de mille 
entiers sur lesquels on veut 
faire une opération quel¬ 
conque de durée tO, l'exécu¬ 
tion totale prendra une secon¬ 
de. Pour 10000 éléments on 
aura évidemment un temps 
de 10 s et ainsi de suite. On 
exprime cette relation 
(linéaire) en disant: 
«l’algorithme est de l'ordre de 
grandeur de n» 
ou avec une notation plus 
brève: 

T(n) = O(n). 

Mais-les choses ne sont pas 
toujours aussi roses et on 
démontre qu'un 
tri à bulles se comporte en 
fonction des «n» éléments à 
classer en: 

TB(n) = 0( n*n ) 

alors qu'un tri par arbre est en: 

TA(n) = 0( n*log2(n) ) 

Voyons ce que ceci implique 
avec la constante tO et selon 
différentes valeurs de n: 
TB(128) # 1.6 10*4 ms = 1.6 s 
TA(128) # 900 ms =.9 s 
TB(1024) # 10 A 6 ms = 1000 s # 
15 mn 

TA(1024) # 10000 ms = 10 s 

Le rapport entre ces deux 
vitesses d'exécution est élo- 
quant et ne fera que croître et 
embellir quelle que soit en réa¬ 
lité la constante tO. Il faut tout 
de même noter deux restric¬ 
tions: 

• Ces valeurs sont des ten¬ 
dances valables pour des 
nombres assez importants, au 
moins de quelques centaines. 
Elles ne sont pas valables en 
dessous de 50 par exemple. 

• Les parties principales n*n 
et n*log2(n) sont données à 
une constante multiplicative 
près qui est inférieure à 1 dans 
le cas de TB et supérieure à 1 
pour TA. Les résultats 
devraient être tempérés mais 
ceci ne remet en aucun cas la 
tendance en cause. Le tri à 
bulles est définitivement un 
algorithme pourri qu'il ne ser¬ 
virait à rien d'optimiser ou de 


coder en assembleur pour 
gagner quelques pouillèmes 
quand le nombre de données 
devient trop important. 
Insistons sur le fait qu'il faut 
alors changer d'algorithme et 
sur l'importance de savoir de 
quel ordre est celui qu’on utili¬ 
se! 

Il faut tout de même garder à 
l'esprit qu'un gus qui pro¬ 
gramme en assembleur et doit 
classer 30 entiers avec un tri 
dont il ne se servira plus 
ensuite serait singulièrement 
crétin d'aller s'enquiquiner en 
codant un tri par arbre ou 
autre quicksort! 

Ceci dit, on démontre que le 
meilleur algorithme possible 
pour trier un ensemble d'élé¬ 
ments est en : "*• •" 

T(n) = 0( n*log2(n) ) q 

Ce dont s'approchent, à là 
fameuse constante multiplica¬ 
tive près, le tri par arbre ou 
par interclassement ainsi que 
le tri rapide, etc. 

La stabilité 

Une fois posé le problème de 
la vitesse, voici celui de la sta¬ 
bilité. On dit qu’un tri est 
stable s'il ne modifie l'ordre 
relatif des éléments de clé 
égale qu'il rencontre. Il est 
important d'avoir un tri stable 
si on veut trier un ensemble 
avec differents critères succes¬ 
sif sans que le dernier classe¬ 
ment soit bouleversé par l'opé¬ 
ration courante. Un exemple 
pourrait être la population 
française classée par taille puis 
par âge et poids. Dans ce cas, 
un tri stable est de rigueur. On 
peut voir par exémple que le 
tri par insertion est stable alors 
que le tri shell ne l'est pas. 

Les tris de fichiers 

Compte tenu de la lenteur de 
certains périphériques, les tris 
de fichiers posent quelques 
problèmes spécifiques liés aux 
temps d'accès vers un élément 
donné. La plupart des tris 
donnés ici ne requièrent aucun 
espace de stockage intermé¬ 
diaire alors que, quand on a la 
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tri bulles( nb, cmp cles, swp elts ) 

Int nb ; 

reglster PFONC cmp_cles, swp_elts ; 

{ 

reglster int i, flag, fin = nb ■ 1 ; 

lf( nb < 2 ) return ; 
do 

for( flag = I = 0 ; I < fin ; !+♦ ) 
lf{ ( *cmp_cles XI, i+1 )>0) 


whlle{ flag ) ; 


( *swp_ells KI, i+1 ) ; 


Listing 3 


sous-tableau déjà trié 
de k éléments (au 
début, k = 1) dans 
lequel on va insérer 
l'élément suivant en 
décalant ceux qui le 
précèdent jusqu'à ce 
qu'il trouve sa place et 
ainsi de suite ad fini- 
tum. Ce tri est présen¬ 
té en deux étapes car 
il reservira. En effet, 
tri_rapide aura besoin 
de _tri_insert() qui 
peut trier un sous- 
tableau (listing 4). 

En tablant sur le pire 
des cas, à savoir un 


comporte en CK n ). Il est donc 
quatre fois plus rapide que tri 
bulles. Moralité, si vous dési¬ 
rez un tri facile à programmer, 
choisissez celui-là. 

Le tri par extraction 

On trouve ici une application 
classique de la récursivité, si le 
tableau [ k..n ] ne contient 
qu'un seul nombre, c’est finit. 
Sinon, on cherche l'élément de 
clé minimale qu'on échange 
avec le k ème et on appelle de 
nouveau la fonction avec le 
tableau [ k+l..n ]. 

On remarque au passage que 


îrl lnsert( nb, cmp cles, swpeits ) 

Inl nb ; 

PFONC cmp_cles, swp_elts ; 


JriJnsertj 0, nb -1, cmp_des, swp_ells ) ; 


JrlJnaert{ deb, fin, cmp_cles, swp__ella ) 

register int deb, fin ; 

reglster PFONC cmp_eles, swp_elts ; 


reglster Int I, j ; 

if( fin - deb < 2} return ; 
for( I = deb +1 ; I <= fin ; l+t ) 

{ 

i = i-i ; 

while( j >= 0 && ( ( *cmp clés X i, J+1 ) > 0 )) 
{ 

( *swp_e!ts X j, J+1 ) ; 




Listing 4 


tri extract( nb, cmp cles, swp elts ) 

reglster Int nb ; 

reglster PFONC cmp_cles, swp_elts ; 


register Int 1, |, min Jnd ; 

if( nb < 2 ) return ; 
for(i = 0 ; i < nb ;i++ ) 

{ 

minjnd = I ; /* indice de la clé minimale 7 
for( J = I +1 ; j < nb ; j++ ) 

l 

lf( ( *cmp_cles X minjnd, J ) > 0 ) 
mln ind = ] ; 

} 

if{ minjnd != i ) 

( *swp_elts X i> minjnd ) ; 


Listing 5 


tableau com- cet algorithme est toujours du 
plètement type: 

inversé, on T(n) = CK 1 +2 + 3 +...+n-l ) = 

voit que CX n*(n-l) / 2 ) # 0( n*n ) 

chaque valeur 

de i sera sui- La récursivité s'élimine facile- 


place, il peut être avantageux 
de créer des fichiers tempo¬ 
raires. La question ne sera pas 
approfondie ici. Disons toute¬ 
fois que le tri rapide, le tri par 
interclassement ou par fusion, 
sont des compromis accep¬ 
tables. Précisons encore que 
dans certains cas, il peut être 
avantageux de ne pas échan¬ 
ger immédiatemement deux 
éléments, mais de ne faire 
qu’une affectation en gardant 
la deuxième sous le coude 
pour gagner du temps. 

Pour bien faire, il faudrait 
aussi se pencher sur l'espace 
mémoire que nécessitent cer¬ 
tains tris - non traités ici - en 
utilisant des tableaux intermé¬ 
diaires de stockage ou même 
l'encombrement de la pile que 
peut impliquer une solution 
récursive comme dans le cas 
du tri rapide. Sans entreT dans 
toutes ces finesses 
L'encyclopédie de Knuth y 
consacre bien 300 pages à vue 
de nez -, voici arrivé le 
moment de passer en revue les 
plus connus. Egalement pour 
simplifier, les explications 
données se référeront, si 
nécessaire, à un tableau conte¬ 
nant n entiers, indexé à partir 
de 0 et devant être trié par 
ordre croissant. Voici donc, - à 
tout saigneur, toute horreur - 
qu'apparaît... 

...Le tri à bulle 

Il fait partie des tris par 
échanges, c’est-à-dire que l’on 
va parcourir le tableau en 
cherchant deux éléments 
inversés. Si on en trouve on 
rétablit l'ordre et on relance un 
nouveau passage jusqu'à ce 
qu'on ait pu parcourir le 
tableau sans en trouver d'in¬ 
version. Le tableau est alors 
trié (listing 3). 

Un élément mal placé ne va 
donc remonter dans le tableau 
que d’une position à la fois. 
En supposant que le tableau 
est trié à l'exception du n-k+1 
ème qui devrait être en pre¬ 
mier, il va falloir appeler n-1 
fois cmp_deO à chaque passa¬ 
ge dans la boucle for et 


comme la remontée est lente, 
cette boucle for va elle-même 
être exécutée n-k+1 fois. Bref 
en n'envisageant que ce cas 
optimiste et en négligeant les 
quelques appels à swp_elt(), 
on trouve: 

TB( n ) = CK ( n-1 )*( n-k+1 )) # 
CK n*n ) 

A part ça, le tri est stable et se 
comporte en 0( n ) si le 
tableau est déjà trié ( k = n ). 

Le tri par insertion 

L'idée de base considère le 
tableau comme constitué d'un 


vie de i appels à cmp_cle() et 
swp_elt() pour ramener l'élé¬ 
ment en 1ère position. Comme 
i varie de 1 à n-1, on aura: 

T(n) = 0(1 + 2 +...+ n-1 ) = CK 
n( n-1 ) /2 ) # CK n*n ) 

Bien qu'étant également en 0( 
n*n ), ce tri à une constante 
multiplicative inférieure à tri 
bulles. Par des considérations 
statistiques, (tout tableau n'est 
pas complètement inversé), on 
trouve que cette dernière est 
de l'ordre de 1/4 et dans le cas 
d'un tableau déjà, trié, il se 


ment et on trouve... l'algorith¬ 
me du listing 5. Sous cette 
forme, il ne présente aucun 
intérêt. 

Passons aux choses 
sérieuses... 

Bien qu'ils soient intéressants 
sur le plan des méthodes utili¬ 
sées, les tris présentés jusqu'à 
maintenant ne sont pas vrai¬ 
ment praticables en raison de 
l'insuffisance des algorithmes 
en 0( n*n ) dans un domaine 
ou les données à trier se 
comptent souvent en milliers. 














tri_shell( nb, cmp_cle3, swp_elis ) 
int nb ; 

register PFONC cmp_cles, swp_elts ; 


register int I, j, k, pas ; 

lf( nb <2 ) return ; 
pas = 1 ; 

/* Initialisation de la suite *1 
while(pas <nb/9) 
pas = 3 * pas +1 ; 


do 


for( i=0 ; I < pas ; U+) 

/* tri par insertion de la I ème série */ 
for( j = I ; j < nb ;‘j += pas ) 

{ 

k = i-pas; 

while{ k >= 0 && ( ( *cmp_c1es X k, k + pas ) > 0 )) 
{ 

( 'swpelts X k, k + pas ) ; 
k -= pas ; 


} 

pas /= 3 ; 

} while( pas >= 1 ) ; 


Listing 6 


C’est pourquoi, on a tenté 
d’améliorer les idées de base 
pour en tirer des tris en 
0(n*log2(n) ). Ces derniers 
sont nettement plus compli¬ 
qués mais ils en valent la 
peine. 

Le tri Shell 

Quand on examine le tri par 
insertion simple, on le trouve 
très bien sauf que les éléments 
ne «remontent»’que d’une case 
à la fois vers leurs emplace¬ 
ments définitifs. L’idée vient 
alors de leur faire «sauter» 
toutes ces étapes pour gagner 
du temps. La méthode propo¬ 
sée par Shell consiste à ne pas 
trier d'un seul coup le tableau 
mais de le décomposer en plu¬ 
sieurs suites dont chaque élé¬ 
ment est espacé d’un certain 
pas ou incrément et de trier 
celles-ci par insertion. Dans ce 
cas, l’échange de deux élé¬ 
ments leur fera franchir ‘incré¬ 
ment’ places d’un seul coup. 
Quand on en aura fini avec ces 
suites, on recommencera avec 
un incrément plus petit - donc 
moins de suites et dans un 
tableau mieuxtrié - et ainsi de 
suite jusquà ce qu’il atteigne l' 
Cette dernière étape, se ramè¬ 
ne d’ailleurs à un tri par inser¬ 
tion, mais dont le tableau 
aurait déjà été fortement clas¬ 
sé. Or on sait que le tri par 
insertion profite de tout 
l’ordre qu’il peut trouver. Pour 
en donner une idée, voici ce 
qui ce passe avec un tableau 
de 15 éléments et une suite 
d’incréments valant successi¬ 
vement 5, 3 et 1... On tri 
d’abord par insertion les suites 
d’indices ( par pas de 5 ) : 
{0,5,10 }, {1,6,11}, { 2,7,12 
}, {3,8,13}, {4,9,14} 
puis les suites ( par pas de 3 ) : 
{0,3,6,9,12), {1,4,7,10,13}, 
{2,5,8,14) 

et seulement à la fin la suite ( 
par pas de 1 ) : ( 1,2,..., 14} 

Voici donc le programme du 
tri Shell (listing 6) avec la série 
d’incréments qui valent suc¬ 
cessivement 1, 4, 13, 40, etc. 
correspondant à la relation 


pas(n) = 3 * pas( n-1 ) +1 ). 

Ce tri tient bien la route jus¬ 
qu'à plusieurs milliers (voire 
dizaine de milliers) d'éléments 
et son algorithme est donné 
pour être de l'ordre de 1,5 
n A (1.25). Son défaut essentiel 
qui peut le faire rejeter est de 
pas être stable (un élément 
peut sauter par dessus son col¬ 
lègue de même clé placé dans 
une autre suite). Mais si vous 
vous en fichez, il présente un 
bon rapport taille-de- 
code/rapidité. 

Note: Vu l'apparition de 
micro_ordinateurs possédant 
une mémoire cache, il faut 
mettre un bémol aux louanges 
concernant le tri Shell. En 
effet, les «sauts» effectués par 
les éléments à trier peuvent 
provoquer une réactualisation 
du cache et donc une baisse 
des performances. 

Le tri rapide 

L’idée de base du tri rapide 
tient en quelque lignes : 

a) On choisit un élément qu'on 
appelle un pivot. 


b) On place tous les éléments 
de clés inférieures à sa droite 
et ceux de clés supérieures à 
sa gauche (on ne les trie pas, 
on se contente de PARTI¬ 
TIONNER le tableau). 

c) On ré-applique récursive¬ 
ment la méthode au sous- 
tableau de droite puis au sous- 
tableau de gauche. 

Prenons un cas favorable en 
supposant qu'après chaque 
étape, le pivot sera placé au 
centre du tableau partitionné. 
La routine PartitionO étant 
manifestement d'un ordre 
majoré par n et comme il reste 
2 sous-tableaux de n/2 élé¬ 
ments à classer, on aura : 

TR( n ) <= 0( n ) + 2 * TR( n / 
2 ) # 0( n * log2( n ) 

Ce qui est de l'ordre de l'opti¬ 
mum théorique. 

Malheureusement, les choses 
se gâtent si le choix du pivot 
ne se porte pas sur un élément 
proche de la médiane, catas¬ 
trophe qui se produit dans le 
cas d'un tableau déjà trié et 
dans lequel la partition se fait 


naïvement autour du premier 
élément dés sous-tableaux qui 
auront alors 1 ou k-1 éléments. 
Ce qui donnera : 

TR(n) # 0(n) + 0(1) + T( n-1 ) 
# CK n ) + CX n-1 ) +..+0(1) = 
0(.n*n ) ??? 

On vient en gros de réinventer 
le tri à bulle! C'est pour éviter 
une telle dégénérescence que 
la routine PartitionO prend les 
précautions qu'on voit dans la 
sélection de son pivot. Mais il 
faut être bien persuadé que si 
on peut en rendre la probabili¬ 
té très faible, elle n'est jamais 
nulle avec ce tri! 

L'autre problème qui peut sur¬ 
gir est celui de l'inutilité de 
l'espace pris sur la pile pour 
l'empilement de données 
concernant des sobs-tableaux 
de quelques éléments. C'est 
pour cela qu’on fixe une taille 
minimale, un seuil, qui, s'il est 
dépassé, déclenche l'appel 
d'un tri par insertion simple 
prenant en charge la finition 
du travail. Cette option pré¬ 
sente en outre l'avantage de 
tirer parti d'un ordre pré-exis¬ 
tant déjà dans le tableau. Voici 
donc li version finale, 
Rec_sort() est la partie récursi¬ 
ve qui exécute la phase c), 
déclenche le tri par insertion 
et appelle PartitionO pour les 
phases a) et b) (listing 7). 

Le tri rapide est le tri le plus 
connu et certainement le plus 
employé. Quand tout va bien 
(!), c'est aussi le plus rapide. 
Malheureusement, il présente 
toujours un risque de dégéné¬ 
rescence. Cest d'ailleurs le cri¬ 
tère de choix entre tri_rapide() 
et tri_arbre() qui va suivre. 

Le tri par arbre 

Quand on jette un oeil sur le 
programme du tri par arbre, 
on se demande ce qui peut 
bien cacher l'arbre (binaire) 
dont la structure n'apparaît 
nulle part. C'est qu'il est en 
fait contenu implicitement 
(isomorphisme) dans le 
tableau à trier. On peut consi¬ 
dérer - de façon un peu tordue 
- que les successeurs gauches 
et droits d'un élément d'indice 
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trl raplde( nb, cmp cles, swp ells ) 

Intnb ; 

PFONC cm p clés, swp elts ; 

{ 

if(nb<2)retum ; 

_rec 8ort( 0, nb - 1 , cmp_cles, swpelts ) ; 

} 

rec_sort( i, j, cmp_cles, swpelts ) 

Tnt IJ ; 

PFONC cmp_cles, swp elts ; 

{ 

Int pivot, seuil = 16; 

while(( |-1 ) > seuil ) 

{ 

pivot = partition( I, J, cmp clés, swpelts ) ; 
lf( ( pivot - i ) <= ( J - pivot") ) 

{ 

_rec_sort( I, pivot • 1, cmpcles, swpelts ) ; 

I = pivot +1 ; 

} 

else 

{ 

_rec_sort( pivot + 1 , ), cmpcles, swpelts ) ; 
j = pivot -1 ; 

} 

} 

JrlJnsert( i, j, cmp_cles, swp_elts ) ; 


partltionf I, |, cmp_cles, swp_elts ) 
reglster Int I, j ; 

register PFONC cmp_cles, swp_elts ; 


register Int u, v 
Int centre ; 

if( ] < I ) return( 1 ) ; 

centre = {I + j ) » 1 ; /* division par 2 7 
u = I ; 
v = j +1 ; 

lf( ( *cmp_cles X j, centre ) < 0 ) 

( *swp_elts X i, centre ) ; 

if( ( *cmp_cles X i, l)< 0 ) 

{*swp_elts X1,1 ) ; 

lf( ( *cmp_cles XI, centre ) < 0 ) 

( *swp_elts X i, centre ) ; 

whlle(u«v){ 

do u++ ; whlle( ( ‘cmpcles X u. I ) < 0 ) ; 
do v- ; while( ( *cmp_cles X v, I ) > 0 ) ; 

(‘swp élisXu,v); 

} 

lf( u > v ) ( ‘swpelts X u, v ) ; 
u = (u<v)?u:v; r*mln(u,v);*/ 

( ’swp_elts XI, u ) ; 
returnfu ) ; 

Listing 7 


k seront les éléments d'indices 
2k et 2k+l... Une autre pro¬ 
priété intéressante liée à cette 
manière de voir l'agricultüre 
est que l'arbre - qui pousse 
vers le bas et de gauche à droi¬ 
te! - va voir tout ses noeuds 
remplis à l’exception - éven¬ 
tuelle - de ceux placés en bas à 
droite ( faire un dessin ), il est 


donc saturé au possible. Sans 
rentrer dans les détails, l'idée 
est dans un premier temps 
d'obtenir un arbre particulier 
nommé maximier dont la raci¬ 
ne de chaque sous-arbre est 
l'élément qui a la plus grande 
clé de tout l'ensemble des élé¬ 
ments composant le sous- 
arbre. Il est alors facile de pas- 


tri arbre( nb, cmp eles, swpelts ) 

register int nb ; 

register PFONC cmp_cles, swp_elts ; 


{ 

registerint1 ; 


U(nb <2 ) return ; 

fTransformer le tableau en une représentation d'un maximier 7 

i=nb/2; 

for(;;) 

lf( i < 0 ) break ; 

reorg arbre( 1, nb, cmp clés, swp elts ) ; 

i-; 


} 

/Via tri proprement dit 7 

l = nb; 

for(;;) 


if( 1 < 0 ) break ; 

( *swp_elts )( 0,1 ) ; 


reorg arbre( 0,1, cmp clés, swp elts ) ; 

} 


reorg_arbre( deb, Un, cmp_cles, swp_eîts ) 
register int fin ; 
int deb ; 

register PFONC cmp_cles, swp_elts ; 


{ 

register Int rlght, left, max Ind ; 
int]; . . " 


j = deb ; 
for(;;) 


left = 2 * j ; 
lf( left > fin ) return ; 
maxjnd = left ; 
rlght = left +1 ; 
lf( right <= tin ) 

lf( ( *cmp_cles X left, rlght ) < 0 ) 
maxjnd = right ; 

lf( ( *cmp_cles )( maxjnd, j ) <= 0 ) 
return ; 

(*swp_elts)(j, maxjnd); 
i= max Ind ; 

'} 

} 

Listing 8 
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Un PC musicien! 


NOTEDIT (PC carte graphique) 


C e mini-logiciel de com¬ 
position musicale en GW 
Basic, adapté aux possi¬ 
bilités sonores du PC, permet 
l'écriture de notes sur une por¬ 
tée et leur interprétation. 


La musique n'est pas le fort de 
l'ordinateur PC (hormis par le biais des 
logiciels MIDI). Toutefois, sollicité par 
un utilitaire musical, sa seule et unique 
voix ne manque pas de charme. 



pause. 

O: augmente l'octave de 1 et 
double la valeur de la note. 

P: baisse d'un octave et divise 
par deux la valeur de la note. 
G: dièse la note sélectionnée. 

A: bémole la note choisie (l'at¬ 
tribution des dièses et des 
bémols respecte les conven¬ 
tions musicales). 

+ : diminue la durée d'une 
note ou d'une pause. Par 
exemple de la blanche (2 
temps) à la noire (1 temps). 

- : augmente la durée d'une 
note ou d'une pause (maxi¬ 
mum 4 temps pour la ronde et 
minimum l/16e de temps 
pour la quadruple croche. 

Q : permet de changer un sym¬ 
bole érroné. Frappez Q et ins¬ 
crivez le nouveau symbole. 

Z : fin de saisie, interprétation 
du morceau. 

Exemple 
(Frère Jacques) 

Après lancement, réponse aux 
questions et affichage de l'édi¬ 
teur, tapez : 

DRMDDRMDMF-S + M 
F-S++SLSF-MD + SLSF 
-MDDPSO-D+DPSO- 
D (Z pour finir). 


Utilisation 

Après lancement, une série de 
questions vous sont posées: 

• «Nom du fichier»: huit 
lettres maximum, «PASDE- 
NOM.MUS» est retenu par 
défaut. Répondre «FIL» affiche 
la liste des fichiers *.MUS pré¬ 
sents sur la disquette. 

• «Nouveau fichier (O/N)»: 
«O» fait passer à la question 


suivante, «N» interprète le 
fichier appelé et vous deman¬ 
de si vous désirez l'imprimer. 

• «Tempo (32/255) par défaut ' 
120»: permet de modifier éven¬ 
tuellement le tempo général. 
Une simple validation affiche 
l'éditeur. 

Celui-ci présente une portée 
surmontée des symboles rela¬ 
tifs aux notes, exemple D0=D, 
RE=R, etc. W affiche une 
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' ■. indique l'endroit où 
’ vous devez frapper Return. 

10 '**♦* NOTEDIT ************. 
20 ■**** FARENZENA DAVID ****- 
30 CLEAR- 

40 •**** LES ERREURS ****. 











50 OH ESSOR GOTO 2070- 

60 •**♦* INITIALISATION DE L'ECRAN ****. 
70 SCREEN 2 :KEY OFP:WIDTH 80:CLS- 
80 ***** DESSIN DE LA CLEF DE SOL ****. 
90 S0L$="C1BR23H3U2E2R8F4D6G4L7H7Ü7E13U5 
H1L2G2D37G2L2H" 

100 ’**'** UTILISATION DU POINTEUR ****- 
110 LO= 4 :OC= 3 :KO=4« 

120 PLAY "0="+VARPTR$(0C). 

130 PLAY ”L="+VARPTR$( LO ) ■ 

140 GOSUB 1860- 

150 .’**** ENTREES DES INFORMATIONS ****. 
160 LOCATE 9,28:PRINT”(FIL) POUR LA LIST 
E DES FICHIERS"- 
170 LOCATE 20,31:PRINT” 

180 LOCATE 10,10:INPUT"LE NOM DU FICHIER 
: ",ZAP$- 

190 IF ZAP$="FIL" OR ZAP$="fil" THEN FIL 
ES"*.MUS":ZAP$="":GOTO 160 ELSE CLS:GOSU 
B 1860- 

200 IF ZAP$="" THEN ZAP$="PASDENOM". 

210 LOCATE 10,10:INPÜT"NOUVEAU FICHIER ( 
O/N):",ZA$. 

220 IF ZA$="N" OR ZA$="n" THEN GOSUB 181 
0 : PLAY D$- 

230 IF Z A$="" THEN 270- 

240 LOCATE 10,10 :INPUT”L 1 IMPRIMER ( 

O/N):”,ZAPO$. 

250 IF ZAPO$="0" OR ZAPO$="o" THEN GOSUB 
1910- 

260 GOTO 160- 

270 LOCATE 10.10:INPÜT"LE TEMPO (32/255) 
PAR DEFAUT 120:".TIO- 
280 IF T10=0 THEN TIO=120. 

290 IF TIO<32 OR TIO >255 THEN 160. 

300 ***** ACTIVATION DU TAMPON ****. 

310 PLAY "T="+VARPTR$(TIO)- 
320 CLS:GOSUB 1860:D$="". 

330 B$="MBT* fc +STR$(TI0)+"03":GOSUB 1180. 
340 ***** ECRAN DE TRAVAIL ****. 

350 CLS:GOSUB 1880- 

360 LOCATE 2,7:PRINT"DO=D RE=R MI=M FA=F 
SOL=S LA=L SI=C OCT="; OC ;"VAL=": LO. 

370 LOCATE 3,7:PRINT"DIESE=G BEMOL=A PET 
ITE VAL=+ GRANDE VAL=- 0C+=0 OC-=P”+" T= 
”;TIO;"FINIR=Z". 

380 LOCATE 2,58:PRINT”REPARER=Q PAUSE=W" 


390 X=30:Y=60:OX=36- 

400 ***** DESSIN DE LA PORTEE ***- 

410 FOR J=1 TO 4:GOSUB 830:NEXT J:A$=INE 

EY$:X=30:OX=36« 

420 ***** DEBUT DE LA BOUCLE PRINCIPALE 
****. 


430 WHILE A$o"Z* 
440 A$=INKEY$. 
450 IF A$="D" OR 
460 IF A$="R" OR 
470 IF A$=”M” OR 
0 IF A$="F" OR 
490 IF A$="S" OR 
500 IF A$="L" OR 
510 IF A$="C” OR 
520 IF A$="0" OR 
530 IF A$="P" OR 


1 AND A$<>”z* 

A$="d" THEN 
A$="r" THEN 
A$=**m” THEN 
A$="f" THEN 
A$="s" THEN 
A$="I" THEN 
A$="c" THEN 
A$=**o" THEN 


GOSUB 900. 
GOSUB 940. 
GOSUB 980- 
GOSUB 1020- 
GOSUB 1060. 
GOSUB 1100. 
GOSUB 1140. 
GOSUB 1400- 
GOSUB 1460. 


540 IF A$='*+" THEN GOSUB 1580. 

550 IF A$="-" THEN GOSUB 1640. 

560 IF A$="Q" OR A$="q" THEN GOSUB 1700. 
570 IF A$="G" OR A$="g" THEN GOSUB 1940. 
580 IF A$="A" OR A$="a" THEN GOSUB 1970. 
590 IF A$="W" OR A$="w" THEN GOSUB 2000. 
600 IF A$="." THEN GOSUB 2040- 
610 IF Y>600 THEN X=X+40:Y=60:OX=OX+40. 
620 IF X>150 THEN CLS.-GOTO 410- 
630 ***** FIN DE LA BOUCLE PRINCIPALE ** 
** . 

640 WEND- 

650 ***** SYS. DE MUSIQUE EN FIN DE PROG 
RAMME ****. 

660 0C=3:L0=4. 

670 PLAY "0="+VARPTR$(0C)■ 

680 PLAY "L="+VARPTR$(LO). 

690 PLAY "T="+VARPTR$(TIO)■ 

700 PLAY D$- 

710 ***** UNE AUTRE? ****. 

720 LOCATE 23,10:INPUT "UNE AUTRE (0/N): 
",DA$. 

730 IF DA$=”0" OR DA$="o" THEN 660. 

740 ***** L'ENREGISTRER? ****. ^ 

750 LOCATE 23,10:INPÜT "L'ENREGISTRER (O 
/N) : '*,DAV$- 

760 IF DAV$="0" OR DAVS^'o" THEN GOSUB 1 
760- 

770 ***** UNE AUTRE? ****. 

780-LOCATE 23.10:INPÜT "UNE AUTRE ( 

0/N) : **, DAVI$- 

790 IF DAVI$='*0" OR DAVI$='*o" THEN 30. 
800 END- 

8i0 ***** SOUS-PROGRAMMES ****. 

820 ***** DESSIN DE LA PORTEE ****. 

830 PRESET (10,X+15):DRAW SOL$. 

840 FOR I=X TO X+20 STEP 5. 

850 LINE (10,I)-(630,I)■ 

860 NEXT I- 
870 X=X+40. 

880 RETURN- 

890 •**** j3o ***♦. 

900 B$="C"- 

910 GOSUB 1520 :PRESET (Y.X+25):Y=Y+20 :G0 
SUB 1180:DRAW N0$- 
920 RETURN. 

.930 ***** SE ****. 

940 B$="D". 

950 GOSUB 1520:PRESET (Y.X+23):Y=Y+20:G0 
SUB 1180: DRAW N0$-- 
960 RETURN. 

970 ***** MI ****. 

980 B$='*E" - 

990 GOSUB 1520 : PRESET (Y,X+20):Y=Y+20:G0 
SUB 1180:DRAW N0$- 
1000 RETURN. 

1010 ***** FA ****. 

1020 B$="F". 

1030 GOSUB 1520:PRESET (Y.X+18):Y=Y+20:G 
OSUB 1180:DRAW N0$- 
1040 RETURN. 

1050 ***** SOL ****. 

1060 B$="G”. 

1070 GOSUB 1520:PRESET (Y,X+15):Y=Y+20:G 
OSUB 1180:DRAW N0$- 
1080 RETURN. 
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1090 •**** LA ***♦. 

1100 B$="A"■ 

1110 GOSDB 1520:PRESET (Y.X+13):Y=Y+20:G 
OSUB 1180:DRAW N0$. 

1120 RETURN. 

1130 •*■*** SI ****• 

1140 B$="B"« 

1150 GOSDB 1520:PRESET (Y.X+10):Y=Y+20:G 
OSUB 1180 :DRAW NO$- 
1160 RETURN- 

1170 ’**** DESSIN DES SYMBOLES ***,*■ 

1180 ’- • 

1190 N0$=""■ 

1200 IF L0=1 TBEN HG$- ''PADSE 
RONDE 

1210 IF LO=2 THEN HG$="DEMI PADSE 
BLANCHE 

1220 IF LO=4 THEN HG$="SODPIR 
NOIRE 

1230 IF LO=8 THEN HG$="DEMI SODPIR 
CROCHE 

1240 IF LO=16 THEN HG$="QUART DE SODPIR 
DOUBLE-CROCHE 

1250 IF LO=32 THEN HG$=”HUITIEME DE POUP 
IR TRIPLE-CROCHE 

1260 IF LO=64 THEN HG$="SEISIEME DE SOUP 
IR QUADRUPLE-CROCHE". 

1270 DIE$="C1R6BL3D3D6":BEM$="C1R6”■ 

1280 IF LO=l THEN N0$="C1E2R4F2G2L4H2”:K 
I$="C1R8D1L8"- 

1290 IF LO=2 THEN N0$=”C1E2R4F2NU15G2L4H 
2":KI$="C1BD2R8D1L8"- 

1300 IF LO=4 THEN N0$="C1NR8E1NR6E1R4F2N 
DI5G1NL6G1L4H2":KI$="C1BR8G3L4F8’^ 

1310 IF LO=8 THEN N0$="C1NR8E1NR6E1R4F2N 
Ü15G1NL6G1L4H2BR8BU15F6”:KI$="C1F3R4G8"- 
1320 IF LO=16 THEN N0$="C1NR8E1NR6E1R4F2 
NUI5G1NL6G1L4H2BR8BU15F6BD3H6":KI$="C1F3 
R4G8BE4L4H3"« 

1330 IF LO=32 THEN NO$="ClNR8ElNR6ElR4F2 
NUI5G1NL6G1L4H2BR8BU15F6BD3H6BD3F6":KI$= 
"C1F3R4G8BE6L4H3BG2F3R4"- 
1340 IF LO=64 THEN N0$="C1NR8E1NR6E1R4F2 
NUI5G1NL6G1L4H2BR8BU15F6BD3H6BD3F6D3H6”: 
KI$="C1F3R4G8BE6L4H3BG2F3R4BG2L4H3"- 
1350 LOCATE 23,40:PRINT HG$:HG$="". 

1360 ■**** ECRITURE DES SYMBOLES DANS UN 
E CHAINE ****- 

1370 C=LEN(B$):C$=LEFT$(B$.C):D$=D$+C$- 
1380 RETURN- 

1390 ■**** UNE OCTAVE EN DESSUS ****- 
1400 IF OC<4 THEN Z=18:OC=OC+l:B$=">" EL 
SE Z=0- • 

1410 LOCATE 2,47:PRINT OC- 
1420 X=X-Z- 
1430 GOSUB 1180- 
1440 RETURN- 

1450 ’***♦ UNE OCTAVE EN DESSOUS ****• 
1460 IF OC>2 THEN Z=18:OC=OC-l:B$="<" EL 
SE Z=0- 

1470 LOCATE 2,47:PRINT OC- 
1480 X=X+Z. 

1490 GOSUB 1180- 
1500 RETURN- 

1510 1 **** POUR ENTENDRE LA NOTE JOUEE * 
*** a 


1520 PLAY "0="+VARPTR$(OC)- 
1530 PLAY "L="+VARPTR$(LO)■ 

1540 PLAY "T="+VARPTR$CTIO)■ 

1550 PLAY B$- 
1560 RETURN. 

1570 ’**** DIMINUER LA VALEUR DES NOTES( 
EX DE BLANCHE A NOIRE) *♦**. 

1580 IF LO<64 THEN LO=LO*2- 
1590 B$="L"+STR$(LO). 

1600 LOCATE 2,54:PRINT LO- 
1610 GOSUB 1180- 
1620 RETURN. 

1630.’**** AÜGNENTER LA VALEUR DES- NOTES 
(EX DE NOIRE A BLANCHE) ***• 

1640 IF L0>1 THEN LO=LO/2- 
1650 B$="L”+STR$(LO)- 
1660 LOCATE 2,54:PRINT LO. 

1670 GOSUB 1180- 
1680 RETURN- 

1690 '**** CORIGER UNE NOTE ♦***. 

1700 Y=Y-20. 

1710 C=LEN(B$)■ 

1720 F=LEN(D$)-C- 
1730 D$=LEFT$(D$,F)■ 

1740 RETURN- 

1750 ’**** ENREGISTRER LA CHAINE 
1760 OPEN "O" ,#1,ZAP$+".MUS"- 
1770 WRITE #1,D$« 

1780 CLOSE#!- 
1790 RETURN- 

1800 ’**** LECTURE DE LA CHAINE ****. 
1810 OPEN "I",#1,ZAP$+".MUS". 

1820 INPUT#1,D$* 

1830 CLOSE#l- 
1840 RETURN. 

1850 '**** LA BOITE DU CADRE ***** 

1860 LINE(1,1)-(639,199),,B« 

1870 LOCATE 3,37:PRINT"NOTEDIT":LOCATE 4 

, 35 : PRINT "--..”• 

1880 LINE(1,l)-(é39,199),,B* 

1890 RETURN. 

1900 ■**** IMPRESSION DE LA CHAINE ****. 
1910 LPRINT ZAP$+".MUS",D$« 

1920 RETURN- 

1930 •**** LES DIESES ****. 

1940 IF B$="C” OR B$="D" OR B$="F M OR B$ 
= "G" OR B$="A" THEN B$=" + ": PRESET (Y.OX+ 
6):Y=Y+20:GOSUB 1180:DRAW DIE$- 
1950 RETURN. 

I960 '**** LES BEMOLS ****- 
1970 IF B$=”D” OR B$="E" OR B$="G" OR B$ 
= "A" OR B$="B” THEN B$="- M : PRESET (Y.OX+ 
6):Y-Y+20:GOSUB 1180:DRAW BEM$« 

1980 RETURN. 

1990 •**%* LES PAUSES ****■ 

2000 B$="P"+STR$(LO)- 

2010 PRESET(Y.OX):Y=Y+20:DRAW KI$- 

2020 GOSUB 1180- 

2030 RETURN. 

2040 B$="."• 

2050 PRESET (Y .OX+6 ) : Y=Y+20 :DRAW''R2" : GOS, 
UB 1180- 
2060 RETURN. 

2070 IF ERR<25 THEN LOCATE 20,31 :PRINT 
"PAS D'IMPRIMANTE i I i I”. 

2080 RESTORE:RESUME 250- 
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PUTGET (PC carte graphique) 


Cet court utilitaire graphique en GVJ 
Basic, outre la réalisation de dessins, 
permet leur exploitation et animation au 
sein de programmes. 


P our ce faire, il offre les 
particularités suivantes: 

• Calcul de la dimension 
(dim) du dessin à animer. 

• Enregistrement dans un 
fichier (.txt) du nom, des coor¬ 
données et de la dimension 
dudit dessin. 

• Impression du fichier «.txt» 
destiné à la commande DRAW. 
• Animation de l’objet afin de 
juger de son évolution dans 
l'espace. 

Utilisation 

Lancez PUTGET sous GWBA- 
SIC. Pour le calcul de la 
dimension du cadre dans 
lequel figurera le dessin, intro¬ 
duire le nombre de points 
horizontaux, verticaux et pré¬ 
cisez le mode (screen). 

- Points horizontaux maxi-~ 
mum: 320 en mode 1, 640 en 
mode 2. 

- Points verticaux" maximum: 
200 pour les deux modes. 

Seul le dessin réalisé dans le 
cadre pointillé pourra être 
mobile. 

L'éditeur utilise les chiffres du 
clavier: 6 droite, 9 droite/haut. 


7 gauche/haut, etc. 
Lorsqu'une ligne est tracée, 
appuyez sur la barre d'espace- 
ment afin de sauver les don¬ 
nées dans le fichier «.txt». Par 
exemple, 6 pendant 10 points 
puis Espace écrira «RIO». Soit 
l'usage des touches suivantes: 
B: déplacement sans dessiner. 
N: dessiner puis revenir au 
point de départ. 

ENTER: recommencer. 

F: voir le dessin avec le systè¬ 
me (DRAW). 

H: aide mais avec perte du 
dessin en cours. 

Exemple 

• Après lancement de PUT¬ 
GET, répondez N au message 
«Lire un fichier (O/N)» 
puisque vous ne désirez pas 
lire un fichier déjà enregistré. 

• Spécifiez 50 points horizon¬ 


taux et verticaux et choisissez 
le mode 1. 

• Lorsque le rectangle de 50 x 
50 apparaît, tenez la touche 6 
enfoncée pendant 10 points, 
puis frappez la. touche ESPA¬ 
CE. 

• «C1;R10» s’affiche au dessus 
de l’écran, tapez F. 

• Entrez «LIGNE» en réponse 
au message «Le nom du des¬ 
sin» et enregistrez-le par O. 

• A l'affichage de «L'animer 
(O/N)», répondez O afin de 
visualiser l'animation, puis 
appuyez sur une touche 
(exemple, ESPACE). 

• Répondez O à «Un autre 
(O/N)». 

• De même pour «Lire un 
fichier (O/N)». 

• Ecrivez «LIGNE» comme 
nom de fichier. Un texte et un 
dessin (le vôtre) apparaissent. 

• Répondez O à «L'imprimer 


(O/N)» afin d'imprimer votre 
fichier .TXT. 

Emploi du fichier .TXT 

Dans vos programmes Basic, 
un DRAW suivit du fichier txt 
tracera votre dessin. DIM() cal¬ 
culé par PUTGET réserve la 
mémoire nécessaire à l’anima¬ 
tion. Placez votre sprité entre 
un GET et un PUT afin de 
contrôler son mouvement. 


10 SCREEN 1,0:KEY 
OFF-.COLOR 8,2:CLS 
20 DESSIN$="C1;R9F8R35F2R 
9F3D3L61H5U10BF12R33H1L 
34" 

30 DIM 0(184) 

40 DEF SEG=&HB800: C=l: D 
=100:E=C+70:F=D+20 
50 PRESET (C,D):DRAW DESS 
IN$:GET(C,D)-(E,F),0 
60 WH1LE A$="":A$=INKEY$ 
70 PUT(C,D),0:C=C+1 
80 IF C>240 THEN C=1 
90 PUT (C,D),0 
100WEND 
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' » indique l'endroit où 
] vous devez frapper Return. 

10 '*«** PUTGET ****************1 
20 ■♦*** FARENZENA DAVID ******** 

30 ■**♦* DEFINITION DU MODE ****. 

40 SCREEN 1,0:KEY OFF:COLOR 8,2:CLS- 
50 ■***• ROUTINE D'AIDE ****. 

60 GOSUB 1420- 

70 ON ERROR GOTO 1540- 

80 •'**** INITIALISATION DES VARIABLES ** 


**. 

90 CLS: IF C=0 OR D=0 THEN C=130:D=100. 
100 GOSUB 1180- 

110 '**** SYSTEME DE LECTURE DES FICH. T 
XT *•**. 

120 LOCATE 5,2:INPUT"LIRE UN FICHIER (0/ 
N) : ", D$ « 

130 IF D$="0" OR D$="o" THEN LOCATE 5,2: 
INPUT " LE NOM DU FICHIER -. " , E$ : GOSUB 

9 7 0 :CLS■ 






140 SCREEN 1,0:COLOR 8,2- 
.150 GOSUB 1180- 
160 CLEAR- 

170 ■**♦* SYSTEME DE CALCUL DES DIM **** 

180 LOCATE 5.2 :INPDT"NOMBRE DE POINTS HO 
RIZONTAUX:".A- 

190 IF A>319 OR A=0 THEN 180- 

200 LOCATE 7,2:INPUT"NOMBRE DE POINTS VE 

RTICAUX ■" B- 

210 IF B>199 OR B=0 THEN 200- 

220 LOCATE 9,2 :INPUT"MODE (1/2):",M- 

230 IF M<1 OR M>2 THEN 220- 

240 IF M=1 THEN 1=2:MO=4:PL=320:LP=2- 

250 IF M=2 THEN 1=1:MO=8:PL=640:LP=1- 

260 SCREEN M,0- 

270 OCT=4+INT((A*I+7)/8)*B- 

280 LOCATE 11,2:PRINT "NOMBRE D'OCTETS.: 

290 Q=INT(OCT/2)- 

300 LOCATE 13,2:PRINT"DIM(";Q;")POUR UN 

DESSIN FIXE"- 

310 L=Q MOD MO- 

320 IF L<MO THEN L=MO- 

330 R=INT((Q\MO)*MO)+L« 

340 LOCATE 15,2:PRINT"DIM(";R;")POUR UN 
DESSIN MOBILE". 

350 LOCATE 23,15:PRINT "(UNE TOUCHE)":WH 
ILE INKEY$="":WEND- 
360 C=INT ((PL-A)/2)■ 

370 D=INT ((200-B)/2)- 
380 E=C+A:F=D+B. 

390 ***** DESSIN DU CADRE POINTILLE **** 

400 CLS: LINE (C,D)-(E.F),LP,B,&HCCCC. . 
41.0 ***** INITIALISATION DES VARIABLES * 

420 X=C:Y=D:T=1. 

430 LOCATE 23,20:PRINT"(F) POUR FINIR"- 
440 ’**** BOUCLE DE DESSIN ***** 

450 WHILE A$o"F" AND A$o"f". 

460 A$=INKEY$:P=0:H=0. 

470 ***** SYSTEME DE DIRECTION ***** 

480 ON VAL (A$) GOSUB 720,730,740,750,76 

0,770,780,790,800- 

490 X=X+P:Y=Y+H« 

500 '**** CONTROLE DU CLAVIER ****- 
510 IF A$=CHR$(32) THEN GOSUB 840- 
520 IF A$="B" OR A$="b" THEN GOSUB 820- 
530 IF A$="N" OR A$="n" THEN GOSUB 1230. 
540 IF A$="H" OR A$="h" THEN GOSUB 1420. 
550 IF A$=CHR$(13) THEN GOSUB 940. 

560 PSET(X,Y),T■ 

570 '**** VALEURES DE X.Y ****. 

580 LOCATE 23,2:PRINT"X=";X;"Y=";Y- 
590 '**** FIN DE LA BOUCLE DE DESSIN *** 

600 WEND- 

610 LOCATE 18,2:INPUT"LE NOM DU DESSIN:" 
,D$- 

620. '**** ECRITURE A L'ECRAN DU DESSIN * 

630 LOCATE 20,2:PRINT CHR$(34):LOCATE 20 
,3:CLS:PRESET (C,D):DRAW "Cl;"+C$. 


640 LOCATE 1,1:PRINT "Cl :"+C$- 

650 LOCATE 23,3: INPUT’’L' ENREGISTRER (O/N 

)",G$. 

660 IF G$="0" OR G$="o" THEN GOSUB 1130- 
670 IF A<310 THEN LOCATE 23,3 :INPÜT"L'AN 
IMER (O/N) :",W$: IF W$="0" OR W$="o" 

THEN GOSUB 1260- 

680 LOCATE 23,3 :INPUT"UNE AUTRE (O/N) 
",J$- 

690 IF J$="N" OR J$="n" THEN END ELSE GO 
TO 30- 
700 END- 

710 '**** SOUS-PROGRAMMES DE DIRECTION * 

720*P=-1 :H=1 : J=J+1 :B$="G” -.RETURN- 
730 P=0:H=1:J=J+1:B$=”D":RETURN• 

740 P=1:H=1:J=J+1:B$=**F":RETÜRN- 
750 P=-l:H=0:J=J+1:B$="L":RETURN- 
760 RETÜRN. 

770 P=1:H=0:J=J+l:B$="R":RETURN- 
780 P=-1:H=-1:J=J+1:B$="H":RETURN. 

790 P=0:H=-1:J=J+1:B$= "U"-.RETURN- 
800 P=1 :H=-1 : J=J+1 : B$="E" : RETURN-" 

810 '**** SOUS-PROGRAMME DU B ♦***- 
820 TG=1:T=0:RETURN. 

830 ***** SOUS-PROGRAMME D'ECRITURE DU D 
ESSIN ****-. 

840 IF TG=1 THEN B$="B"+B$. 

850 T=1• 

860 IF RT=1 THEN B$="N"+B$:X=TX:Y=TY- 
870 Z=LEN(C$)- 
880 R$=STR$(J). 

890 IF J=0 THEN R$="". 

900 C$=LEFT$(C$,Z)+B$+R$- 
910 LOCATE 2,1 :PRINT "C1;";C$. 

920 J=O:B$='"':TG=0:RT=0:RETURN. 

930 '•*** NETTOYAGE DU DESSIN ****. 

9 4 0 J=0:X=C:Y=D:C$="":CLS:LINE(C,D)-(E,F 
),LP,B,&HCCCC- 
950 RETURN. 

960 ***** SOUS-PROGRAMME DE LECTURE FICH 
.TXT *•**- 
970 CLS. 

980 OPEN"I",#1,E$+".TXT". 

990 INPUT#1,C$,R,M- 

1000 H$="DIMr+SÏR$(R) + " )”- 

1010 I$=E$+".TXT"■ 

1020 V$="MODE"+STR$(M)« 

1030 IF M=2 THEN SCREEN M:WIDTH 80- 
1040 LOCATE 2.3:PRINT I$,C$,"DIM(";R;")" 

; "MODE" :M- 
1050 CLOSE#l- 

1060 '*♦** DESSIN DU FICH.TXT ***♦. 

1070 PRESET (C,D) -.DRAW C$- 
1080 ***** IMPRESSION DU FICH.TXT ****- 
1090 LOCATE 23,1:INPUT"L'IMPRIMER (O/N): 
", F$ . 

1100 IF F$="0" OR F$="o" THEN LPRINT 1$, 
C$,H$,V$. 

1110 RETURN- 

1120 ***** CREATION D'UN FICH.TXT(LEURRE 

y****. 

1130 OPEN "O",#1,D$+".TXT”• 

1140 WRITE#1,"Cl;"+C$,R,M- 
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1150 CL0SE#1■ 

1160 RETÜRN- 

1170 ’**** DESSIN DU CADRE ****. 

1180 LINEfl,1)-(319,199)V^iB- 
1190 LOCATE 2,17:PRINT"PUTGET". 

1200 LOCATE '3,17:PRINT"- 

1210 RETÜRN. 

1220 •**** SOÜS-PROGRAMME DU N **** 

1230 RT=1:TX=X:TY=Y■ 

1240 RETÜRN. 

1250 '***• SOUS-PROGRAMME D'ANIMATION DU 
DESSIN **♦*. 

1260 DIM O(R). 

1270 DEF SEG=&HB800* 

1280 LINE(C-1,D-1)-(E+1.F+1).LP.B.&HCCCC 

1290 VI=INT(E-C)» 

1300 DA=(PL-2)-VI- 
1310 A$=INXEY$. 

1320 LOCATE 23,3:PRINT"UNE TOUCHE ) 

1330 PRESET(C,D): DRAW "Cl"+C$:GET(C,D)-( 
E.FKO- 

1340 WHILE A$=""■ 

1350 A$=INKEY$. 

1360 PUT(C.D),0:C=C+1. 

1370 IF C>DA THEN C=l- 


1380 PUT(C.D),0. 

1390 WEND. 

1400 RETÜRN- 

1410 •**♦* SOUS-PROGRAMME D'AIDE ****. 
1420 CLS:GOSUB 1180. 

'1430 LOCATE 6.2:PRINT"LES CHIFFRES POUR 
DESSINER". 

1440 LOCATE 8,2 :PRINT"TOUJOURS DANS LE C 
ADRE 

1450 LOCATE 10,2:PRINT"(ESPACE) POUR NOT 
ER LA LIGNE". 

1460 LOCATE 12,2:PRINT"(ENTER) POUR RECO 
MMENCER". 

1470 LOCATE 14,2:PRINT"(B) POUR SE DEPLA 
CER SANS DESSINER"- 

1480 LOCATE 16,2 :PRINT"CN) POUR DESSINER 
ET REVENIR"- 

1490 LOCATE 18,2 :PRINT”(F) POUR VOIR LE 
DESSIN". 

1500 LOCATE 20,2.-PRINT"(H) POUR DE L'AID 
E”. 

1510 LOCATE 23.15:PRINT"(UNE TOUCHÉ)"- 

1520 WHILE INKEY$="”:WEND- 

1530. CLS: GOStJB 940:RETURN- 

1540 IF ERR=25 THEN LOCATE 23,20:PRINT " 

PAS D'IMPRIMANTE!II". 

1550 RESTORE:RESUME 1090. 


Suit*. de. la page. .^? 
ser à la seconde étape qui est 
le tri proprement âit (listing 
8 ). 

S’il se révèle plus lent que le 
tri rapide, l'avantage du tri par 
arbre réside dans la certitude 
qu'on a de ne pas le voir dégé¬ 
nérer en 0(n*n). On peut alors 
majorer avec certitude les 
temps qui va être pris en 
termes de l'ordre de 0( 
n*lpg2(n)). 

Conclusion 

Pour finir, voici les questions à 
se poser avant de choisir 
partrii les algorithmes propo¬ 
sés. 

• Combien de données à 
trier? 

« La stabilité est-elle impor¬ 
tante (tri multicritères) ? 

• Les données présentent-elles 
déjà un certain ordre comme 


quand on ajoute une ou plu¬ 
sieurs fiches dans un fichier 
préalablement classé? 

• Dois-je exécuter mon tri 
dans un temps maximal 
donné? 

A partir de là, le choix ne 
devrait poser aucune - ou 
presque - difficulté. Ceux qui 
n'aurait pas trouvé leur bon¬ 
heur dans cet article auront 
certainement la révélation en 
consultant l'un des ouvrages 
cités en bibliographie. 

Note : Tri_rapide était le plus 
rapide - quand tout allait 
bien ! - jusqu'à l'apparition 
récente du tri Pidgeon dont je 
n'ai malheureusement pas l'al¬ 
gorithme et qui en est une 
amélioration. Après moult 
polémiques, ce dernier semble 
avoir été déclaré vainqueur. 


Bibliographie 

«Méthodes de programma¬ 
tion» par B. Meyer et C. 
Baudoin chez Eyrolles dans la 
collection de la D.E.R de l'EDF. 
«Programmation avancée» de 
J.C. Boussard et R. Malh chez 
Eyrolles. 


Citons aussi pour ceux qui 
veulent souffrir, l'encyclopédie 
de Knuth en beaucoup de 
volumes : "The art of compu¬ 
ter programming". 


Jean-Yves Trétout 


TH 

Algorithme 

domaine 

note 

Bulles 

n A 2 

<200 

/ 

Extraction 

n A 2 

<200 

/ 

Insertion 

n A 2 

<500 

/ 

Shell 

1.5 n A 1.25 

< 20000 

instable 

rapide 

n*log2(n) 

tous 

peut dégénérer en n A 2 

Arbre 

n*log2(n) 

>100 

le plus fiable 

Pour donner un éléments concret d'appréciation, le tri de 5000 

entiers reste inférieur à 5 secondes ave 

les 3 derniers algorithmes 

alors qu'il dépasse la minute pour les autres. 












Vous êtes au courant? 

ALIMENTATION BI-TENSION SIMPLE 


N ous allons essayer de 
définir une alimentation 
facile à mettre en œuvre, 
capable de fournir deux ten¬ 
sions régulées (5V et 12V) d'un 
débit de IA chacune, en utili¬ 
sant autant que faire se peut 
les fonds «Je tiroirs présents 
chez tout bricoleur en électro¬ 
nique. Bien sûr, il existe actuel¬ 
lement sur le marché une pro¬ 
fusion de circuits «étudiés 
pour»: régulateurs à tension 
ajustable, à limitation de cou¬ 
rant, à régulation thermique, 
etc...Néanmoins, je vous livre 
ici le schéma du montage 
simple que j'utilise habituelle¬ 
ment pour alimenter le petit 
montage du moment. 11 s'agit 
du «régulateur série», connu 
depuis la nuit des temps élec¬ 
troniques... 

Schéma de principe et 
fonctionnement 

Un petit schéma (Figure 1) 
vaut mieux qu'un long dis¬ 
cours, sans toutefois nous dis¬ 
penser de quelques explica¬ 
tions. 


D'ordinaire , les articles traitant de 
petits montages électroniques, restent 
discrets quant aux alimentations 
nécessaires... 


ont pour seul but de fournir 
un courant important qu'on ne 
pourrait obtenir avec la diode 
Zener seule. A noter cepen¬ 
dant qu'ils apportent une 
chute de tension (due au VBE 
de chacun d'eux) d'environ 13 


Notre montage 


transfo sans point milieu, en 
remplaçant les DI et D2 par un 
pont redresseur suivant la 
figure 3. 

11 faudra alors prévoir un cou¬ 
rant de sortie double. 

• Puissance dissipée: dans T4 
circule un courant maxi de IA. 
Par ailleurs, il chute une ten¬ 
sion de 12-5 = 7V. La puissance 
qu'il aura à dissiper sera donc 





inconvénient. 

• A propos des condensateurs 
: quelques mots seulement à 
propos de C2 et C5. Les diodes 
Zener sont des régulateurs de 
tension, mais présentent une 
impédance non négligeable. 
Elles sont de ce fait sensibles 
aux variations du courant qui 
les traversent, ce qui entraîne 
une tension de ronflement 
résiduelle indésirable. Le 
condensateur placé à leurs 
bornes permet de s’affranchir 
de ce problème. 

• A propos des Zener: 
- n'oubliez pas 

qu'une diode 
ordinaire au sili¬ 
cium présente 
une chute de 
tension d'envi- 
n 0,6 à 0,7V. Si 


Fissure 2 


Pour obtenir deux tensions 
régulées, pourquoi ne pas 
mettre en série deux circuits de 
même type? En effet, les 12V 
du premier sont suffisants, 
voire redondants pour alimen¬ 
ter le deuxième. 



La cellule de régulation pro¬ 
prement dite est constituée de 
deux composants: la résistance 
R et la diode Zener Z. Quelle 
que soit la tension Vi (dans les 
limites des caractéristiques, 
bien sûr), la tension aux 
bornes de la diode Zener sera 
constante (en réalité, à peu 
près...). Les transistors Tl et T2 


Cas du transformateur 
Fiçure 3 sans point milieu 


Analyse brève 
du circuit 

Le tranformateur est, 
figure 2, à point milieu. On 


de 7W au maximum. Par 
contre, dans T2 circulera un 
courant maxi de 2A (IA pour 
le 5V et IA pour le 12V). Il 
faut donc réduire la tension 
d'entrée du montage pour 
minimiser les pertes dans ce 
transistor. En choisissant 
un transformateur déli¬ 
vrant une tension infé¬ 
rieure à 15 Veff, la puis¬ 
sance dissipée dans T2 
sera inférieure à 6W. Bien 
entendu, il faut monter Tl et 
T2 sur dissipateur pour pou¬ 
voir tirer sans risque le 
maximum de cette alimenta¬ 
tion. 

• Rendement: des chiffres 
qui précèdent, on déduit 
immédiatement que le rende¬ 
ment de l'ensemble avoisine 
les 50%, ce qui est loin d'être 
génial. Mais la simplicité et 
l'efficacité de ce montage com- 


n'avez pas la 
Zener adéquate, vous pouvez 
fort bien user du subterfuge 
suivant (figure 4) : 


Vtotai 


0 — i<s— 


Fifure 4 1 Vtotal = Vz + n x~Vd] 

(n - nbr-. de diodes en sérié) 


peut tout aussi bien utiliser un pensent largement ce petit 


Ceci ne perturbera en rien la 
régulation et vous permettra 
d'utiliser le matériel dont vous 
disposez... 

• Sécurité : la protection se 
fera par l'adjonction d'un 
fusible (environ 150mA) à l'en¬ 
trée du transformateur et 
éventuellement d'un fusible 
1,5A sur chacune des sorties 
(Voir Fui, Fu2, Fu3). 

Michel Hugot 























